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FOREWORD 


This  report  summarizes  the  work  accomplished  by  the  Aircraft  Division  of 
Northrop  Corporation,  Hawthorne,  California,  for  the  Air  Force  Flight  Dynamics 
Laboratory,  AFSC,  Wright  Patterson  Air  Force  Base,  Ohio,  under  USAF  Contract 
No.  F33615-69-C-1602  {Project  698  BT).  This  document  eonsitutes  the  Final 
Report  under  the  contract. 

This  work  was  accomplished  during  the  period  1  May  1969  to  31  January  1972, 
and  this  report  was  released  by  the  authors  in  January  1972.  The  Air  Force  Project 
Engineers  were  Mr,  Robert  Nicholson  and  Mr.  Henry  W.  Woolard  of  the  Control 
Criteria  Branch,  Flight  Control  Division,  AFFDL.  Their  issista.se  in  monitoring 
the  work  and  providing  data  is  greatly  appreciated. 

This  technical  report  has  been  reviewed  and  is  approved. 


Chief,  Control  Criteria  Branch 

Flight  Control  Division 

Air  Force  Flight  Dynamics  Laboratory 
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ABSTRACT 


Analytical  engineering  methods  are  developed  for  use  in  predicting  the  static 
and  dynamic  stability  and  control  derivatives  and  force  and  moment  coefficients  of 
lift-jet,  lift-fan,  and  vectored  thrust  V/STOL  aircraft  in  the  hover  and  transition 
flight  regimes.  The  methods  take  into  account  the  strong  power  effects ,  large 
variations  in  angle  of  attack  and  sideslip,  and  changes  in  aircraft  geometry  that  are 
associated  with  high  disk  loaded  V/STOL  aircraft  operating  in  the  aforementioned 
flight  regimes.  The  aircraft  configurations  studied  have  a  conventional  wing, 
fuselage  and  empennage.  The  prediction  methods  are  suitable  for  use  by  design 
personnel  during  the  preliminary  design  and  evaluat'd!  of  V/STOL  aircraft  of  the 
type  previously  mentioned. 

This  report  consists  of  four  volumes .  Details  of  the  computer  programs 
associated  with  the  prediction  methods  are  given  in  this  volume.  The  Theoretical 
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development  of  the  prediction  methods  may  be  found  in  Volume  I.  The  methods  are 
applied  to  a  number  of  V/STOL  configurations  in  Volume  II.  The  results  of  a 
literature  survey  are  presented  in  Volume  IV. 
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SECTION  I 


INTRODUCTION 

The  purpose  of  this  investigation  was  to  develop  analytical  engineering  methods 
for  predicting  the  static  and  dynamic  longitudinal  and  lateral -dn'ectional  aerodynamic 
stability  and  control  derivatives  and  coefficients  of  lift  jet,  lift  fan,  and  vectored 
thrust  V/STOL  aircraft  in  the  hover  and  transition  flight  regimes  during  unaccelerated 
flight  conditions.  The  methods  developed  under  the  investigation  were  to  be  suitable 
for  use  by  design  personnel  during  the  preliminary  design  and  evaluation  of  lift  jet, 
lift  fan  and  vectored  thrust  V/STOL  aircraft.  Where  appropriate,  the  methods  devel¬ 
oped  might  use  high  speed  computers  to  permit  solutions  to  be  obtained  within  reason¬ 
able  time  periods.  The  aircraft  configurations  studied  were  to  have  a  conventional 
wing,  fuselage  and  empennage. 

In  Volume  I  the  aerodynamic  prediction  methods  are  developed  in  a  form  suitable 
for  application  to  each  aircraft  component.  The  theoretical  basis  or  semi -empirical 
analysis  is  presented.  Empirical  coefficients  are  determined,  where  necessary,  and 
extensive  comparisons  of  calculations  with  test  data  are  made. 

Volume  n  gives  detailed  examples  of  the  application  of  the  prediction  methods 
to  the  determination  of  the  aerodynamic  forces,  moments,  and,  in  some  cases,  surface 
pressure  distributions,  on  the  aircraft  wing,  fuselage  and  empennage.  In  each  case 
a  sample  problem  is  given  with  method  applicability  and  limitations  discussed. 

This  volume  is  intended  to  serve  as  a  User's  Manua.  for  the  computer  programs 
developed  as  part  of  the  investigation.  Information  dealing  with  both  the  operating 
and  programming  aspects  is  presented  for  each  computer  program  developed  as  part 
of  the  effort.  An  abbreviated  section  is  included  on  the  Lifting  Surface  program, 
v/hich  is  utilized  in  the  application  of  the  prediction  methods  presented  in  Volume  II, 
but  is  itself  a  modified  version  of  an  existing  program.  A  complete  listing  of  all  the 
programs  is  appended. 


SECTION  n 


JET  FLOW  FIELD  PROGRAM 


1.  DESCRIPTION 

The  Jet  Flow  Field  program  evaluates  the  induced  velocity  field  due  to  single 
or  multiple  jets  exhausting  into  an  arbitrarily  directed  mainstream. 

The  equations  of  motion  governing  the  development  of  each  jet  are  integrated 
numerically  for  the  position  of  the  jet  centerline,  the  .nondimensionalized  mean  jet 
speed  and  the  nondimensionalized  major  diameter  of  the  ellipse  which  represents  the 
jet  cross  section  in  the  mathematical  model.  The  set  of  first  order  equations  is 
integrated  by  means  of  a  fourth  order  Adams  predictor/corrector  routine  with  a 
Runge-Kutta  starting  solution. 

The  induced  velocity  components  due  to  each  jet  at  a  given  control  point  are  then 
calculated  by  replacing  each  jet  with  a  representative  singularity  distribution  of  sinks 
and  doublets  along  the  jet  centerline.  The  contributions  to  the  induced  velocity  com¬ 
ponents  from  the  singularity  distribution  are  summed  over  the  length  of  each  jet 
centerline.  The  velocity  components  due  to  each  of  the  singularity  distributions  are 
additive  at  every  control  point. 

For  multiple  jet  configurations,  distances  between  jet  centerlines  are  tested 
and  when  intersection  of  two  jets  is  indicated,  a  coalesced  jet  is  established  from 
continuity  and  momentum  considerations.  The  coalesced  jet  is  treated  as  another 
indeoendent  jet  in  the  computations  for  the  induced  velocity  field. 

a.  Restrictions 

Jets  must  exhaust  at  some  angle  into  the  mainstream,  i.  e,  the  jei  exhaust  dir¬ 
ection  may  not  coincide  with  the  freestream  direction. 

For  a  two-jet  configuration  the  jet  exits  must  both  lie  in  the  same  XY  plant 
and  the  jet  exhaust  plane,  defined  by  the  freestream  vector  and  the  initial  jet  exhaust 
vector  must  be  the  same  for  both  jets  (see  Figure  1  for  definition  of  coordinate 
system). 


The  same  restrictions  apply  to  a  three-jet  configuration.  Additionally  three-jet 
configurations  must  be  colinear  and  negative  angles  of  attack  cannot  be  treated. 

Control  points  at  which  jet-induced  velocity  components  are  to  be  evaluated 
may  not  lie  within  the  jet  exhaust  itself,  as  the  formulation  of  the  mathematical  model 
is  not  valid  in  this  region.  Generally,  control  points  positioned  less  than  2  jet  exit 
diameters  from  the  center  of  the  jet  exit  should  be  avoided. 

b.  Options 

•  Wing  Option:  The  program  computes  the  control  points  from  the  mapping 
coefficients  and  radii  generated  by  the  Mapping  Function  program. 

•  Fuselage  Option:  The  program  computes  the  control  points  from  the  mapping 
coefficients  and  radii  generated  by  the  Mapping  Function  program. 

•  Tabulation  Option:  Coordinates  of  the  control  points  are  provided  as  part  of 
the  input  to  the  program. 

The  first  two  options  assure  compatibility  with  the  Transformation  Method 
program,  when  the  Jet  Flow  Field  prog  ran  is  to  be  used  in  conjunction  with  that 
program.  The  punch  control  option  is  exercised  to  generate  data  for  the  Transformation 
Method  program  in  card  form. 

The  third  option  may  be  utilized  to  generate  input  to  the  Lifting  Surface  program, 
by  again  exercising  the  punch  control  option. 

2.  OPERATING  INFORMATION 

Core  and  Time  Requirements: 

Computer:  CDC  6600 
Core:  lOOKg  to  load 

62Kg  to  execute 

Time:  Approximately  0.6  minutes  for  a  typical  run  using  250  control  points. 

Additional  Requirements:  None 

3.  INPUT  DATA 

Figure  I  shows  a  typical  wing  configuration  relative  to  the  input/output  coordinate 
system.  Figure  2  shows  a  typical  fuselage  configuration  relative  to  this  coordinate 
system. 
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The  input  cards  required  by  the  program  are  shown  in  Fiecre  3.  The  cards  of 
Group  A  are  always  required.  They  are  followed  by  the  cards  of  Group  B  or  Group  C 
or  Group  D  depending  on  which  of  the  geometry  options  discussed  above  is  being 
executed.  The  input  cards  are  grouped  is  this  manner  and  discussed  in  detail  below. 


Card 

No.  Variable  Format 
GROUP  A:  Required  for  all  runs 
~  MULT  16 

IG50M  16 


© 


Description 


Specifies  number  of  jets  in  configuration 
MULT  =  1,  2  or  3 

Specifies  option  of  program  being  exercised 

f  =  1  control  points  computed  on  wing 
=  2  control  points  computed  on  fuselage 
=  3  control  points  are  provided  as 
If  IGE0M4  input 

=  4  same  as  3,  but  flat  plate  pressure 
coefficient  is  also  computed  at 
L  every  control  point 


L 

IPUNCH 

16 

Punch  control 

l  =  0  no  punched  output 

If  IPUNCH  J  _  i  punched  output 

© 

ALFA 

BETA 

F12.0 

F12.0 

Angle  of  attaelc  a  (defined  in  Figure  2) 

■ 

Angle  of  sideslip  0  (defined  in  Figure  2) 

© 

N 

16 

Number  of  steps  to  be  used  in  numerical 
integration  of  jet  centerline 

Limit:  N<100 

G 

F12.0 

Step  size  in  numerical  integration  of  jet 
centerline,  in  fraction  of  jet  exit  diameter 

XJET 

F12.0 

X-coordinate  of  center  of  jet  exit 

YJET 

F12.0 

Y-coordinate  of  center  of  jet  exit 

© 

ZJI'T 

F12.0 

Z-coordinate  of  center  of  jet  exit 

PHI 

F12.0 

Jet  exhaust  angle  $  (defined  in  Figure  1)  ) 

PSI 

F12.0 

Jet  exhaust  angle  ^  (defined  in  Figure  1)  ) 

DJET 

F12.0 

Jet  diameter 

©  c 

VELJ 

F12.0 

Freestream  to  jet  exhaust  velocity  ratio 

in  degrees 


in  degrees 
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Card 

No. 


Variable  Format 


Description 


Cants  of  the  type  4  and  5,  describing  the  other  jets,  follow 
at  this  point  if  MULT»1.  For  multiple  jet  configurations, 
upstream  jets  are  listed  ahead  of  downstream  jets. 


© 


DiA 


F12. 0  Empirical  factor  coot  rolling  initial  cross  section 
of  a  coalesced  jet.  Function  of  jet  orientation 
angle  0  .  (See  Vol  I,  p.  56  for  definition) 

«  „  I  <20«  DIA  =1.0 

U  u  I  >70*  DIA  =  0.5 

May  be  left  blank  for  a  single- jet  configuration. 


GROUP  B:  Cards  provide  data  to  generate  control  points  on  wing 


© 


© 


NTHT 

16 

Number  of  control  points  at  each  spanwise 
station  or  number  of  equal  increments  M  into 
which  the  mapping  circle  is  divided 

NS 

16 

Number  of  spanwise  locations  where  control 
points  are  located 

limit:  NS  <25 

NC©EF 

16 

Number  of  terms  used  in  the  mapping 
expansion 

limit:  NC0EF<15 

ERECT 

16 

Indicates  whether  or  not  wing  is  rectangular 

if  ibfpt  1  =  0  w*1*  is  rectangular 

uuu.ui  |  =  !  wing  iB  ^  rectangular 

Y(I) 

F12.0 

Spanwise  location  of  control  station 

R(I) 

F12.0 

Radius  of  mapping  circle 

DRDY(I) 

F12.0 

Rate  of  change  of  R  with  Y 

A(J,I) 

E12.5 

Real  part  of  mapping  cot  fficlent. 

J=l,  NC0EF 

E12.5 

Imaginary  part  of  mapping  coefficient 

•  Sets  of  cards  now  follow  to  describe  the  other  wing  stations, 
I  =  2,  NS. 

•  If  ERECT  =  0,  cards  listing  the  real  and  imaginary  parts  of 
the  coefficients  are  omitted. 
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Card 

No. 


Variable 


Format 


Description 


GROUP  C:  Cants  provide  data  to  generate  control  points  on  fMy 


NTHT 

16 

Nemaber  of  control  points  at  each  station,  if 
NSYM  =  1.  If  NSYM  =  0,  number  of  control 
points  generated  will  be  NTHT  *  1. 

© 

NS 

B 

Number  of  fuselage  stations  where  control 
points  are  located 
limit:  NS  <25 

NC0EF 

16 

See  definition,  card  1,  Group  B 

NSYM 

B 

Flow  symmetry  indicator 

If  NSYM  (  =  0  comPute  only  starboard  side 

1  =1  compote  entire  cross  section 

X(l) 

F12.0 

X-coordmate  of  control  station 

© 

8(1) 

See  definition,  card  2,  Group  B 

1ir 

DRDX(I) 

Bate  of  change  of  R  with  X 

© 

Z 

A(J,D 

E12.5 

Real  part  of  mapping  coefficient  J  =  1,  NC0EF 

1 

» 

Sets  of  cards  now  follow  to  describe  the  other  fuselage 
stations,  I  =  2,  NS 

Note:  For  procedure  of  obtaining  mapping  coefficients  and 
radii,  refer  to  Volume  II,  Section  I  and  to  Section  in 
of  this  volume. 

GROUP  D: 

Cards  provide  control  points  as  direct  input 

© 

NS 

16 

Number  of  spanwise  control  stations 

NC 

16 

Number  of  control  points  at  each  station 

X0(I) 

F12.0 

X-coordinate  of  control  point 

© 

Y0(T; 

F12.0 

Y-coordinate  of  control  point  j  I  -  1,  NC  x  NS 

Z0(I) 

F12.0 

2-coordinate  of  control  point 

Contued  Limits: 


Group  Ik 

BBx  NTBT<630 

(  -  u  NS  x  (SHUT  *  V,  <600 

Gtornp  Ci 

HNSYM  J 

1  =1  NS  x  XTHT  <600 

Group  D: 

SC  x  NS  <600 

3.  OPTPCT 

BoCk  printed  and  punched  ootpot  may  be  obtained 

a.  Printed  Output 

The  |et  configuration  being  treated  is  identified  both  by  appropriate  heading  and 
by  printout  of  pertinent  inpri  information.  Jet  centerline  information  on  all  the  Jets 
in  the  conjuration  includes  the  centerline  coordinates,  the  nomtimensionalired  mean 
jet  speed  and  the  nondhneasionaliaed  major  diameter  of  the  ellipse  representing  die 
jet  cross  section.  Points  of  intersection  of  jets  are  identified. 

The  induced  velocity  components  U,  V,  W,  all  nondtmensumalized  by  U  are 
printed  oat  at  each  control  point.  Additionally,  if  1GE0M  =  4  was  specified,  the  flat  plate 
prepare  coefficient,  computed  by  using  an  image  system,  is  printed  out  at  each  control 
ro-'nt. 

b.  Punched  Output 

For  die  first  two  options  discussed  in  subsection  l.h,  punched  cards  may  be 
generated  which  form  a  c ou  '.  iuous  input  data  block  for  the  T raosformat  on  Method 
program.  Data  are  punched  in  sets  for  X-  or  Y-staticms.  Data  consist  of  station, 
radios  of  mapping  circle,  rate  of  change  of  the  radios,  mapping  coefficients  and 
induced  velocities  at  the  control  points.  For  ccnvenier'ce,  the  punched  cards  are 
identified  and  sequenced  in  cols  73-60. 

For  the  third  option  discussed  in  subsection  l.b,  punched  cards  may  be  gecer  ed 
which  can  be  utilized  as  part  of  the  input  to  the  I  ifting  Surface  program.  The  non- 
dimensional  ized  velocity  component  W  is  punche  I  out  for  every  control  point.  This 
can  serve  as  an  approximation  for  the  tangent  o!  the  jet-induced  downwash  angle  for 
small  angles  of  attack.  Thus  '.he  punched  output  from  this  option  can  serve  as  the 
dovnwash  matrix  w]  in  the  input  to  the  Lifting  Surface  program. 


4.  PROGRAMMING  INFORMATION 


4.  Logical  Stractore 

The  logical  flow  chart  fer  the  program  is  shown  la  Figure  4. 
b.  Purpose  of  Subroutines 

BITEST  -  Tests  for  blockage  and  intersection  of  jets  for  multiple-id 
configurations 

DfTEG  -  Integrates  equations  of  motion  for  the  jet  pats 

C0MP  -  Computes  extent  of  overlap  between  the  jets  in  a  multiple-jet 

configuration 

BALANC  -  Establishes  initial  conditions  for  a  coalesced  jet  from  a 
momentum  balance 

0UTPT  -  Transforms  local  coordinates  to  program  coordinates 

VEL0C  -  Evaluates  induced  velocities  at  one  control  point 

DERIV  -  Computes  derivatives  for  ADAMS 

TRWING  -  Computes  cont  rol  points  on  wing 

TRB0DY  -  Computes  control  points  on  fuselage 

ADAPT  -  Punches  output  for  Transformation  Method  program 

PRT0UT  -  Prints  out  computed  answers 

-  Transforms  input  coordinates  to  program  coordinates 

VEL1  -  Compotes  effective  velocity  ratios  for  downstream  jets  is  a 

multiple  jet  configuration 

TRANS3  -  Transforms  program  coordinates  io  output  coordinates 

PLANE  -  Computes  point  of  intersection  between  a  given  plane  and  a 
given  line 

ADAMS  -  Adams  predictor/corrector  routine 

CFCAL  -  Computes  direction  cosines  for  the  jet -centered  coordinate 


TRANS  1 
TRANS2 


system 


R0TATE  -  Tnotfonns  program  coordinates  to  jet-centered  coordinates 

XPR0D  -  Compotes  cross  product  of  two  vectors 

S0L  -  Solves  a  system  of  three  simaltaaeoas  equations 

interdependence  of  Sribrr  jtines 

The  Calling-Called  matrix  for  the  program  is  shown  in  Figure  5. 


X 


FIGURE  1.  COORDINATE  SYSTEM  FOR  TYPICAL  WING 


(a) 


<b) 
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Jet  Location 


FIGURE  2,  COORDINATE  SYSTEM  FOR  TYPICAL  FUSELAGE 


FIGURE  3.  INPUT  DATA  FOR  JET  FLOW  FIELD  PROGRAM 


FIGURE  4.  LOGICAL  FLOW  CHART  IOR  JET  FLOW  FIELD  PROGRAM 
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SECTION  m 


MAPPING  FUNCTION  PROGRAM 

1.  DESCRIPTION 

The  mapping  function  program  provides  a  method  of  obtaining  a  mapping  of  an 
arbitrary  cross  section  into  a  unit  circle.  This  mapping  is  obtained  by  first  develop¬ 
ing  a  potential  for  a  vortex  flow  about  the  section  and  comparing  this  potential  with  the 
known  potential  for  a  vortex  flow  about  the  circle.  Points  where  the  two  potentials  are 
equal  are  known  to  map  into  each  other  in  a  conformal  transformation.  Knowing  the 
point-to-point  correspondence  between  points  on  the  section  and  points  on  the  mapping 
circle,  it  is  '.hen  possible  to  obtain  the  derivative  of  the  mapping  function  with  any  cor¬ 
ners  on  the  section  explicitly  specified.  This  derivative  of  the  mapping  function  is 
integrated  numerically  about  the  mapping  circle  and  the  mapped  section  obtained  is 
printed  out. 

The  program  also  takes  the  derivative  of  the  mapping  and  removes  the  corners 
which  are  contained  explicitly  by  expanding  the  expressions  specifying  the  corners. 

The  expression  thus  obtained  can  be  integrated  analytically  to  obtain  the  mapping  func¬ 
tion.  The  mapping  function  is  obtained  in  this  manner  and  the  coefficients  of  the  map¬ 
ping  function  obtained  are  printed  out.  The  program  then  prints  out  section  coordinates 
for  the  section  as  obtained  from  this  mapping  function.  This  mapped  section  can  then 
be  compared  with  the  original  section  to  determine  the  accuracy  of  the  mapping. 

a.  Restrictions 

Cross  sections  must  describe  a  discrete  cross-sectional  area. 

Corner  points  must  be  separated  by  an  element  of  distance  ds. 

2.  OPERATING  INFORMATION 
Core  and  Time  Requirements: 

Computer:  CDC  6600 
re.  56,'  to  load 

•"V 

4  i. ).  .  to  execute 
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Time:  Approximately  .25  minutes  for  a  typical  symmetric  section  with 
NTERM  -  10.  Sections  w£*h  corners  and  asymmetric  sections 
would  require  more  time. 


Additional  Requirements :  None 


3.  INPUT  DATA 

Figure  6  defines  the  coordinates  in  the  section  and  circle  planes. 

The  input  data  cards  required  are  shown  in  Figure  7.  They  are  described  in 
detail  below. 


Card 

No.  Variable  Format  Description 


<D 


® 

® 


C 

C 


NPT 

13 

K0RN 

13 

NTERM 

13 

NSYM 

13 

X(I) 

F9.5 

Y(D 

F9.5 

DX 

F9.5 

Number  of  coordinate  points  desci  ibing  the  section  to 
be  read 

Limit:  NPT<90 

Number  of  corners  or  psev  ioc^rnere  on  section 
Limn:  K0RN<2O 

Number  of  terms  in  polentif.i  expansion  and  mapping 
series  to  be  computed 

Limit:  NTERM  <50 

Symmetry  indicator 

If  NSYM  |  =  ?  8ymmet™  3ecti°n 
I  =  1  asymmetric  section 

X-coordinates  cf  points  describing  the  section,  listed 
in  sequential  order  starting  at  the  positive  X-axis  and 
going  counterclockwise.  I  -  1,NPT 

If  NSYM  =  0  last  point  is  on  negative  X  -axis 
If  NSYM  =  1  last  point  is  same  as  first  point 

Y -coordinates  of  points  describing  the  section. 

I  =  l.NPT 

Shift  of  coordinate  system  along  X-axis  desired  to 
center  section. 


If  K0RN  -  0,  cards  5,  6  are  omitted. 


Variable 

Format 

Description 

NC0R(I) 

13 

For  a  true  corner,  this  is  the  sequence  number  of  the 
corner  point  in  the  X(I)  tabulation.  For  a  pseudocor¬ 
ner,  NC0R(I)  =  0.  I  =  1 , K0RN 

Limit:  Second  point  in  tabulation  may  not  be  a 
corner  point.  Adjacent  points  in  tabula¬ 
tion  may  not  be  corner  points. 

XC0R(I) 

F9.J 

X-coordinate  of  corner  point  or  pseudocorner  point. 

YC0R(I) 

F9.5 

Y-coordinate  of  corner  point  or  pseudocorner  point. 

DALPHA(I) 

F9.5 

Angle  A  a  turned  through  at  the  corner,  specified  i>. 
radians.  (IDALPHA(I)  Istt,  sign  convention  is  shown 
in  Figure  6  ;  see  also  Figure  47,  Vol  I,  p.  79) 

There  would  now  follow  cards  for  1  =  2,  K0RN. 

If  NSYM  =  0 

,  card  7  is  omitted. 

ALPHA(l) 

F9.5 

Angle  a  which  the  tangent  to  the  section  makes  with 
the  X-axis  at  the  first  point.  If  the  first  point  is  a 
corner  point  the  angle  between  the  X-axis  and  the 
normal  to  the  bisector  of  do  is  utilized. 

XI 

F6.2 

X-coordinate  for  first  point  of  numerical  integration 
of  mapping 

Y1 

F6.2 

Y-coordinate  for  first  point  of  numerical  integration 
of  mapping 

THO 

F6.2 

Angle  9  about  mapping  circle,  corresponding  to  the 
first  point  to  be  mapped  (in  degrees). 

THF 

F6.2 

Angle  9  about  mapping  circle,  corresponding  to  the 
last  point  to  be  mapped  (in  degrees). 

DTH 

F6.2 

Approximate  spacing  of  mapping  in  increments  about 
the  mapping  circle  (in  degrees). 

Note:  Card  8  gives  parameters  for  numerical  integration  of  the  derivative 
of  the  mapping  function.  Card  9  gives  the  parameters  for  the  analytic¬ 
ally  integrated  mapping  function  .  (See  Eqs.  58,  59  Vol  I,  p.83) 

N 

13 

Number  of  points  at  which  mapping  is  to  be  computed. 

DTH 

F6.2 

Angular  spacing  about  mapping  circle  at  which  mapped 
points  are  to  be  located,  specified  in  degrees. 

THO 

F6.2 

See  definition,  card  8. 

Note:  The  optimum  value  of  NTERM  is  to  some  extent  dependent  on  the  section  to  be 
mapped.  NTERM  =  10  normally  gives  a  satisfactory  mapping.  Too  large  a 
number  of  terms  may  cause  a  divergence  of  the  series,  especially  for  tL:n 
sections  such  as  airfoils. 

4.  OUTPUT 

Figure  8  shows  an  example  of  the  output  obtained  from  the  mapping  program. 

This  example  is  for  a  symmetrical  body  section. 

Figure  8(a)  shows  some  of  the  parameters  calculated  in  computing  the  potential 
about  the  given  section  and  comparing  the  results  with  the  unit  circle  potential. 

Columns  1  and  2  reproduce  the  input  X  and  Y  coordinates  of  the  section  outline,  except 
that  the  X  value  has  been  shifted  by  an  amount  DX  which  was  specified  in  the  input  data. 
Column  3  gives  the  radial  distance  Rb  from  each  point  to  the  new  origin.  Column  4  gives 
the  section  distance  s  to  each  point.  Column  5  gives  the  velocity  computed  at  each 
point.  Velocities  written  out  at  corner  points  are  meaningless.  Column  6  gives  the 
angle  a  which  the  section  tangent  nukes  with  the  X-axis.  Column  7  gives  the  position 
angle  w  for  each  point  in  degrees.  Column  8  gives  the  angle  0  around  the  mapping 
circle  in  degrees. 

Figure  8(b)  gives  the  mapping  obtained  for  the  input  section  by  numerical  inte¬ 
gration.  The  first  and  second  columns  are  the  X  and  Y  coordinates  on  the  mapped 
section,  and  the  third  column  gives  the  angular  distance  around  the  mapping  circle 
for  each  point  in  radians.  The  extent  of  the  section  printed  out  here  and  the  number 
of  points  is  specified  by  card  8  of  the  input  data. 

Figure  8(c)  shows  the  mapping  circle  radius  and  the  coefficients  of  the  mapping 
function  with  the  corners  removed.  The  real  parts  of  the  coefficients  are  written  first 
and  then  the  imaginary  parts,  which  in  this  example  are  zero.  The  number  of  coeffi¬ 
cients  calculated  is  one  less  than  the  NTERM  specified  in  the  input. 

Figure  8(d)  tabulates  the  X  and  Y  coordinates  of  the  mapped  section  with  the 
corners  removed  from  the  mapping.  The  number  of  points  and  spacing  between  points 
were  specified  by  input  card  9. 

5.  PROGRAMMING  INFORMATION 
a.  Logical  Structure 

The  logical  flow  chart  for  the  program  is  shown  in  Figure  9. 


17 


b.  Purpose  of  Subroutines 


MAP  PI  —  This  subroutine  computes  the  coefficients  of  the  derivative  of  the 

mapping  function  without  the  corners  explicitly  expressed.  The  sub¬ 
routine  then  computes  the  corner  parameters  and  obtains  the  deriva¬ 
tive  of  the  mapping  with  the  coders  explicitly  expressed.  The  sub¬ 
routine  then  sets  up  a  series  of  increments  around  the  mapping  circle 
at  which  points  of  the  mapping  are  to  be  computed.  It  then  calls 
MAPP  which  computes  points  on  the  section.  The  points  on  the  sec¬ 
tion  are  then  printed  out. 

MAPP5  —  Tiiis  subroutine  removes  the  corners  from  the  derivatives  of  the 
mapping  function  and  evaluates  the  coefficients  for  this  form  o?  the 
derivative.  The  analytical  integration  is  then  performed.  The  pro¬ 
gram  then  computes  points  on  the  section  using  the  mapping  function 
obtained  at  points  requested  by  the  inputs.  The  program  prints  out 
the  radius  f  the  mapping  circle,  the  coefficients  of  the  mapping 
function  and  the  points  computed  from  the  mapping  representing  the 
section. 

MAPP  —  This  subroutine  is  used  to  compute  a  point  on  the  section  after  an 
incremental  distance  about  the  mapping  circle  has  been  traveled. 
Three  options  are  provided  for  this  routine.  The  first  option 
(KODE  =  1)  specifies  that  the  end  points  of  the  increment  are  both 
on  the  circle  and  the  integration  is  carried  out  on  the  unit  circle. 

This  option  is  used  when  no  corner  point  is  in  the  interval.  The 
second  option  (KODE  =  2)  integrates  the  derivative  of  the  mapping 
function  along  a  radial  line.  This  option  is  not  used  by  the  program. 
The  third  option  (KODE  =  3)  integrates  about  a  corner  point.  A 
semicircular  path  about  the  corner  point  is  followed  external  to  the 
mapping  circle  and  a  point  on  the  section  past  the  corner  is  computed. 

MATINV  —  Inverts  a  matrix 

QATAN  -  Computes  tan"1  (y/x)  given  y  and  x.  The  angle  computed  is  not  the 
principal  angle  but  ranges  from  0  to  360  degiees,  depending  on  the 
signs  of  x  and  y. 

c.  Interdependence  of  Subroutines 

The  Calling-Called  matrix  for  the  program  is  shown  in  Figure  10. 
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FIGURE  8(b).  (Continued) 
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FIGURE  13.  CALLING-CALLED  MATRIX 
FOR  MAPPING  FUNCTION  PROGRAM 


SECTJODi  IV 


TRANSFORMATION  METHOD  PROGRAM 


1.  DESCRIPTION 

This  prograc  competes  the  pressure  distributio'is  oo  a  -ing  or  a  hsdage.  By 
iaiegritias  the  pressrre  on  the  surface,  the  force  and  moment  caa  be  obtained. 

The  principal  input  data  are  the  indnced  velocity  field  and  the  mapping  coeffi  - 
cleats  given  by  Sections  n  and  HI.  The  former  is,  however,  calculated  with  no 
obstacle  present  in  the  flow.  Thus,  the  main  inaction  of  the  transformation  method 
is  to  insert  a  wing  or  a  fa»bp»  in  this  given  field  and  to  move  the  obstacle  momen¬ 
tarily  in  soch  a  imiwwt  ant  the  boundary  condition  is  satisfied.  This  induces  a 
velocity  potential  from  which,  along  with  the  potential  caused  by  the  exhausting  jet, 
the  surface  pressure  can  be  determined. 

a.  Restrictions 

Some  implicit  assumptions  made  in  &e  program  to  describe  a  wing  or  fuselage 
most  be  satisfied.  The  foliowing  restrictions  do  not  apply  when  only  the  segment 
method  is  used  and  no  force  and  moments  are  computed.  The  coordinate  system 
utilized  is  that  of  Figures  1  and  2  of  Section  II. 

Wing  Geometry: 

Wing  and  jet  configuration  are  symmetric  about  the  midspan. 

Midspan  is  located  at  Y  =  0. 

For  zero  sideslip,  the  first  control  station  is  located  at  Y  =  0  and  the  last 

control  station  must  be  located  at  the  starboard  wingtip. 

For  sideslip  other  than  zero,  the  first  control  station  is  located  at  the  port 

wingtip  and  the  last  control  station  is  located  at  the  starb-  ard  wingtip. 

Fuselage  Geometry: 

The  fuselage  nose  must  be  located  at  X  -  0. 

The  plane  of  symmetry  of  the  fuselage  must  be  situated  at  Y  0. 

No  control  stations  may  cut  throueh  an  exhausting  jet. 
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Wing  or  h»Hy 

Itower  effect,  power  jm  or  power  off 

Sepnt  metferci  aieae  or  stpMat  method  plus  three' 
dinfawowi  Docfificatke 

CoopdaiuB  of  iategraied  force  and  moment  nay  be 
exercised  or  suppressed 

2.  OPERATING  IX  FORMATION 

Core  and  Time  Requirements: 

Computer:  CDC  G600 

Core:  215  Kg  to  load 

200  Kg  to  execute 

Time:  Approximately  3  minutes  for  a  typical  run  with  NSTA  =  11  and 

MTHET  -  36 


•  Geometry: 

•  Pori  Coafipuatica: 
•Coapntatimal  Method: 

•  F<roe  aad  Moment: 


Additional  Requirements :  The  program  requires  one  intermediate 

storage  tape  unit. 


3-  INPUT  DATA 


The  program  requires  the  inpul  data  cards  shown  in  Figure  IT  Cards  1  and  2 
are  required  for  a*l  computations.  Some  of  the  cards  of  Group  A  may  be  omitted 
depending  os  the  Power  Configuration  option  specified.  Additional  cards  from  Group  B 
may  be  required  according  to  other  options  specified.  Either  the  w-type  or  f-type 
cards  are  added  from  Group  B  depending  on  the  Geometry  option. 


Card 

No.  Variable  Format 


Description 


IGE0M 


© 


M0DIN 


IS 


16 


Geometry7  index 


if  IGE0M 


r  1  wing 
-  2  fuselage 


Modification  index 


if  M0DIN 


0  segment  method  only 
i  segment  method  plus  3-D 
modification 
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V triable 


t>ornm 


Description 


f*  JST0P 


nxs 


JP0WER 


IRECT 


IF0RCE 


NSTA 


N 

NF0UR 


NSYM 


16 


16 


16 


16 


16 


Number  of  iterations 
if  JST0P 


-  0  segment  method  only 
=  n  iterate  n  times 


Number  of  layers  in  the  parallelepiped  network 
residual  sources  and  sinks 


Limit:  IDES  <4 

if  M0DIN  =  0,  HHS  =  1 


\wer  index 


if  JP0WER 


-1  power  off 
0  power  effect 
1  power  on 


C  figuration  index 


if  IRECT 


=  0  rectangular  wing 
=  1  nonrectangular  wing  or  fuselage 


Force  index 


if  IF^RCE 


=  0  no  force  and  moment  computed 
-  1  force  and  moment  computed 


13  Number  of  control  stations 

Limit:  8<  NSTA;:  16  for  fuselage 

8  <  NSTA  <  12  for  wing  with  no  sideslip 
8  ;_NSTA  <.16  for  wing  with  sideslip 

13  Number  of  terms  used  in  mapping  expansion 

Limit:  N<_12 

13  Nvmber  of  terms  used  in  Fourier  analysis  for  bound¬ 

ary  functions  in  segment  method  and  also  for  down- 
wash  correction  in  3-.0  wing  modification 

Limit:.  NF0UR<2O 

13  Computation  index 

-  1  NSYM  -  1 

-  2  NSYM  :  0 


if  IGL0M 
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Card 

No.  Variable 
f  MTHET 


© 


Format  Description 

13  When  NSYM  =  0  and  BETA  =  0,  MTHET  is  the  num¬ 

ber  of  equal  increments  AO  on  the  mapping  semi¬ 
circle.  When  NSYM  =  1  or  BETA  *  0,  MTHET  is 
the  number  of  equal  increments  AO  on  the  full  map¬ 
ping  circle. 

Limit:  MTR  ET<  18  when  NSYM  =  0 
and  BETA  -  0 
MTHET<  36  when  NSYM  =  1 
or  BETA  *  0 


UJ 

F7.3 

Freestream  to  jet  exit  velocity  ratio 

ALPHA 

F7.3 

Angle  of  attack  in  degr  ees 

BETA 

F7.3 

Angle  of  sideslip  in  degrees 

GROUP  A: 


0 


APART  (I) 

F12.6 

Coordinate  of  control  station.  APART  (I)  =  Y  (I)  for 
v.ing;  APART  (I)  =  X(I)  for  fuselage 

*<I) 

F12.6 

Radius  of  mapping  circle 

DRDX(I) 

F12.6 

Gradient  of  R 

•  If  NSYM  =  0,  only  A's  appear  on  the  next  card 


© 


A(J,I) 


E12.5 

E12.5 


Real  part  of  mapping  coefficient 
Imaginary  part  of  mapping  coefficient 


J  =  1,N 


© 

© 

© 


L 

L 

C 


If  JPOWER  =  -1,  omit  cards  3,  4,  5 

U  (I,  J)  E12.5  Induced  velocity  component  in  X-direction. 

J  =  1,  NTHET 

V  (I,  J)  E12.5  Induced  velocity  component  in  Y-direction. 

J-l,  NTHET 

W(I,  J)  E12.5  Induced  velocity  component  in  Z-direotion. 

J  --  1,  NTHET 

where  I  NTHET  =  MTET+1  if  NSYM  -  0  and  BETA  =  0 
NTHET  -  MTHET  if  NSYM  -  1  or  BETA  *  0 


There  would  now  follow  sets  of  cards  for  I  -  2,  NSTA 
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Note:  For  all  Power  Configuration  options  other  than  JP0WER  =  -1,  all  the 
data  cards  of  Group  A  are  generated  for  stations  1  =  1,  NSTA  by  the 
Jet  Flow  Field  program. 

For  the  Fower-Off  Configuration,  Cards  1  and  2  must  be  provided  at 
each  station.  These  mapping  coefficients,  radii  and  gradients  required 
are  obtained  from  the  Mapping  Function  program. 


GROUP  B:  Additional  data  cards  for  further  computations 


Geometry  Option:  IGE0M  -=  1 

9 

=  0  and  IF0RCE 

If  M0DIN  • 

=  1  and  IF0RCE 


=  0  no  further  computations 
=  1  card  w3  required 

=  0  cards  wl  and  w2  required 
=  1  cards  wl-*-w3  required 


Card 

No.  Variable  Format  Description 


NB00L  16  NB00L  =  0,  no  modification  is  imposed  on  any  of  the 

computed  velocity  components. 

NB00L  =  1,  velocity  components,  due  to  residual 
sources  and  sinks  at  the  station  nearest  to  the  jet 
are  the  average  values  of  the  computed  and  inter¬ 
preted  components. 


MEXIT  16  If  BETA  =  0,  MEXIT  =  1.  If  BETA  *  0.  MEXIT  = 

station  number  where  jet  is  located. 


16  Number  of  stations  where  downwash  modification  is 

to  be  effected. 

Generally:  M0D  =  NSTA-3  if  BETA  =  0 
M0D  =  NSTA/2-3  if  BETA  *  0 


13  Number  of  exhausting  jets 

F12.6  Jet  exit  diameter 

F12.6  X-coordinate  of  moment  center 

F12.6  Z-coordinate  of  moment  center 

F12.6  Reference  length  for  nondimensionalizing  moment 
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Geometry  Option:  IGE0M  =  2 


if  M0DIN 


=  0  and  IF0RCE 
=  1  and  IF0RCE 


0  no  further  computations 
1  cards  f3  and  f4  are  required 

0  cards  fl  and  f2  are  required 
1  cards  fl-*  f4  are  required 


Card 


No. 

Variable 

Format 

Description 

© 

|  NJET 

16 

NJLT  =  I  when  the  upstream  jet  is  located  betwe 
stations  I  and  1  +  1 

© 

_ AP  AR  T  (NST  A+ 1 ) 

F12.6 

X-coordinate  of  fuselage  tail 

NDJ 

13 

See  definition,  card  w3 

DJET 

F12.6 

See  definition,  card  w3 

© 

XCG 

F12.6 

See  definition,  card  w3 

CH0RD 

F12.6 

See  definition,  card  w3 

l 

, — 

YTIP 

F12.6 

Y-coordinate  of  fuselage  nose 

ZTIP 

F12.6 

Z -coordinate  of  fuselage  nose 

APART(NSTA+1)  F12.6 

X-coordinate  of  fuselage  tail 

YTAIL 

F12.6 

Y-coordinate  of  fuselage  tail 

ZTAIL 

F12  6 

Z -coordinate  of  fuselage  tail 

The  optimum  manner  of  choosing  control  stations  along  the  fuselage  or  across 

the  wing  span  is  at  equally  spaced  intervals.  When  this  is  not  possible,  it  is  desirable 
to  avoid  large  variation  in  adjacent  intervals  and  cluster  of  stations  at  one  location. 


4.  OUTPUT 

There  are,  in  general,  four  groups  of  output  data: 

a.  Control  indices  and  other  input  variables:  Control  indices  and  other  per¬ 
tinent  input  data  are  printed  out  and  identified. 

b.  Table  for  geometry:  The  correspondence  between  the  angular  increments 
on  the  mapping  circle  and  the  rectangular  coordinates  of  each  station  is 
listed. 
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c.  Tables  for  pressure  distribution:  The  computed  pressure  coefficients  on  the 
surface  are  tabulated.  The  first  table  contains  the  results  obtained  by  the 
segment  method,  which  is  then  followed  by  table  (or  tables)  to  include  the 
three-dimensional  modifications. 

d.  Force  and  moment  data:  The  calculated  force  and  moment  data  are  printed 
out.  Preceding  this,  the  parameters  used  in  three-dimensional  modification 
and  for  force  and  moment  computations  are  also  identified  and  listed. 

If  options  in  the  input  data  do  not  call  for  three-dimensional  modification  and  the 
force  and  moment  calculation.  Group  (c)  will  contain  only  one  table  and  Group  (d)  will  not 
appear. 


5.  PROGRAMMING  INFORMATION 
a.  Logical  Structure 

The  logical  flow  chart  for  the  program  is  shown  in  Figure  12. 


b.  Purpose  of  Subroutines 


STRIP  - 


VLB0DY  - 


VLWING  - 
WM0D3  - 

BM0D3  - 
DNWASh  - 
FMWING  - 

FMB0DY  - 
THE0  - 


Establishes  the  appropriate  induced  velocity  field  for  subroutines 
VLB0DY  or  VLWING,  calculates  pressure  coefficients  from  the 
output  arguments  of  VLWING  or  VLB0DY  and  prints  out  pressure 
distribution  tables. 

Defines  the  boundary  function,  represents  it  in  Fourier  series  and 
calculates  the  velocity  components  from  the  complex  potential  for 
the  fuselage  configuration. 

Similar  to  VLB0DY  but  for  the  wing  configuration. 

Determines  the  strength  of  residual  sources  and  sinks  and  modifies 
the  original  induced  velocity  field  for  the  wing  configuration. 

Similar  to  WM0D3,  but  for  the  fuselage  configuration. 

U  ses  lifting  line  theory  to  modify  the  downwash  field. 

Integrates  pressure  distribution  to  give  force  and  moment  on  a 
wing. 

Similar  to  FMWING,  but  for  the  fuselage  configuration. 

Expands  a  given  function  into  a  Fourier  series.; 
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INTEG  —  Performs  integration  of  a  given  function. 

SVC0  —  Fits  a  cubic  curve  through  four  points. 

SVTN  —  Interpolates  tins  cubic  curve. 

Interdependence  c-f  Subroutines 

The  Calling-Called  matrix  for  the  program  is  shown  in  Figure  13. 


FIGURE  11.  INPUT  DATA  FOR  TRANSFORMATION  METHOD  PROGRAM 


FIGURE  12.  LOGICAL  FLOW  CHART  FOR  1  RANS FORMATION  METHOD  PROGRAM 


FIGURE  13.  CALLING-CALLED  MATRIX 
FOR  TRANSFORMATION  METHOD  PROGRAM 
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section  v 


LIFTING  SURFACE  PROGRAM 

T be  Liftmg  Surface  program  Is  a  modi  fieri  version  of  t be  oonpater  program 
dnrdoped  by  Northrop  Corporation  trader  Btt  Reps  contrast  5iO*4}-fi72S-C  for  design¬ 
ing  and  amtiring  sriksonic  lifting  surfaces.  The  design  options  hate  bees  dusaated 
aad  foe  capability  to  compute  foe  dc—wa  distrSetHB  due  to  a  ghnea  camber  dutribo- 
that  has  bees  eliminated.  The  discussion  m  this  section  will  be  restricted  to  those 
areas  affected  by  the  modifications,  primarily  the  sequence  of  input  cards.  While  it 
is  intended  to  provide  adequate  information  to  permit  utilization  of  the  Lifting  Surface 
program,  in  conjunction  with  toe  Jet  Floor  Field  program,  to  evaluate  poorer  effects  on 
rings,  foe  authoritative  documentation  an  foe  program  remains  Northrop  Technical 
Report  NOR  £4-155  prepared  for  Bureau  of  Naval  Weapons,  Department  of  Navy, 

April  1965. 

1.  DESCRIPTION 

The  program  calculates  foe  pressure  loading  on  a  wing  due  to  a  specified  down- 
wash  distribution,  ft  includes  provisions  for  body  effect.  The  program  consists  of 
three  main  components  (CHAIN1,  CHAINS,  CHAIX7)  which  may  be  used  together  in  one 
continuous  operation,  or  independently. 

The  first  step  in  the  analysis  is  the  calculation  of  the  downwash  control  point 
matrix  [d],  in  CHAIN!.  The  next  step  is  to  calculate  the  least  squares  inverse  erf 
the  downwash  control  point  matrix,  v  in  CHAIN 6.  This  may  be  done  in  a  continuous 
operation  following  the  computation  of  [DJ,  in  which  case  [Dj  will  be  read  off  inter¬ 
mediate  storage  tape.  CHAIN 6  may  also  be  used  independently  in  which  case  the  down- 
wash  control  point  matrix  [Dj  is  supplied  to  the  program  on  punched  cards.  However, 
it  is  preferable  to  compute  [d]  and  [Dj^  in  a  continuous  operation,  in  order  to  main¬ 
tain  maximum  accuracy. 

The  downwash  control  point  matrix  Dj  and  its  least  squares  inverse  ld]v, 
depend  on  the  planform,  the  location  of  foe  downwash  control  points,  and  the  number 
of  terms  in  the  loading  series.  Once  calculated,  D  forms  an  input  to  the  third 


of  ike 


pmpia,  ClADfT,  eaagmm  &e  pmaoe  kmdfeg.  The 

doumraih  ctHroi  poise  mrht  D  and  its  least  squares  mtm  Dj'*’  are  aoe  recoas- 

**  ia«g  a*  the  pfaafcgm.  control  jwwl  Iwskm  atS  the  size-  of  the  pressetrt 
Imrt't  series  are  aot  rhmgrtf,  Tit  least  sports  aererse  *D^  near  be  reeaaed  is 
packed  card  fcm  to  serve  as  iapst  to  CBAOCT  for  addtekesl  stages  of  pmssrt 
lomfiegs  on  take  saac  stag. 

Tkss  tke  tMrd  ampmewt  of  Ike  program,  CHADC7,  atr  be  called  deredrj  by 
the  anrerskm  prqpax  or  «sed  sepirateb.  Tke  principal  aforstSMa  rtqcartd  is: 
tke  least  s quares  everted  do-rash  control  pais  rsrtm,  tke  wing  piaafons  gcondiy 
aad  fte  doaasask  dstribSka.  1b  a  continuous  operation,  tke  least  squares  iarerted 
do— rash  control  paint  matrix  arill  be  read  off  igenBofiSe  storage  tape.  Wises 
CHAIX7  is  used  indeptadeatk,  D  ^  is  soppiied  to  Sw  program  oo  punched  cards. 
CHARI  calculates  tke  overall  and  local  aerodynamic  coefficients  and  tke  pressure 
loading  distribution  at  a  set  of  specified  pressure  control  points.  Tke  overall  moment 
coefficients  are  referred  to  an  axis  located  at  one  quarter  of  tke  mean  aerodynamic 
chord.  Ike  program  is  designed  to  analyze  an  unlimited  zxuafoer  of  downwash  distribu¬ 
tions  for  the  cne  downwash  control  point  matrix  D  .  The  body  effect  on  the  downwash 
dLstribifiion  will  be  included  by  die  program  if  the  spantsise  location  of  the  edge  of  the 
fuselage  is  specified.  If  the  body  effect  is  to  be  omitted,  the  spanwise  location  is  made 
zero. 


a.  Restrictions 

The  program  is  applicable  to  continuous  surfaces  of  arbitrary  planfonn  and  no 
interference  effects  such  as  slots,  ground  effects,  large  dihedral  angles  or  end  plates 
are  included. 

Do  wow  ash  control  points  must  not  be  located  at  Gr  near  the  leading  edge,  since 
the  cotangent  elements  of  [d]  would  become  excessively  large  and  dominate  in  the 
solution  for  the  pressure  coefficient  matrix  [A  . 

Due  to  the  computing  techniques  utilized,  downwash  control  points  must  not  be 
located  it  discontinuities  in  the  planfonu  and  at  flap  hinge  lines. 

b.  Options 

•  Execute  CHAP-il  to  obtain  the  downwash  control  point  matrix  D 

•  Elxecute  CHAINS  independently  to  obtain  the  least  square  inverse  of  the  downwash 
control  point  matrix,  D 


•  ExeoJe  CHADCI  al  CHAIN*  Sa  a 


nuaflmiw'  aauwer  to  Attala  "sT* 

•  GooieCHAKl,  CHAUS®  aad  CHAIN!  ia  a  eewtmsows  mutmtr  Id  obtain  &e 
aerodynamic  coeflkieats  and  Oe  pressure  loat&ag  dbririfctttisn 

Awk  eottroic  to  dtah  [o^  or  la  at rd  form,  via  ewrcttw  is  at  a  a 

c  catfoTu  aaacr,  axe  anflaHe  and  «ffl  be  (Stressed  as  part  of  Ike  input. 

2.  OPERATING  INFORMATION 

Core  aad  TSae  Bepboaots: 

Coopafeer :  CDC  666© 

Core:  12lKg  to  load 

107Kg  to  execute 

Tine:  Appnmnjtehr  Z.  5  ntiuBtes  for  a  typical  na  with  a  downwasis 

control  point  matrix  D  -  100  x  36. 

AAHKn^gi  ^fyiwMBwrfK-  The  program  requires  faro  intermediate 

storage  tape  anils. 

3.  INPUT  DATA 

A  typical  wing  with  two  geometric  regions  is  shown  in  Figure  14.  Hie  wing  dimen¬ 
sions  most  be  normalized  by  the  wing  semispan  before  specifying  data.  Only  data  for 
the  starboard  wing  are  specified  since  the  wing  is  considered  to  be  symmetric. 

Hie  input  data  required  are  shown  in  Figure  15.  The  first  card  controls  which  of 
the  three  main  components  are  to  be  executed.  The  other  cards,  sequentially,  form 
the  mptd  to  CHAINL,  CHAINS  and  CHA1N7.  They  are  grouped  in  this  manner  in 
Figure  15.  They  are  described  in  detail  below. 

Card 

No.  Variable  Format  Description 

1ST  ART  15  Indicates  wfaei  execution  of  the  program  is  to 

begin 

-  1  start  with  CHAIN1 
If  ISTART  -  2  star*  with  CHAIN6 

-  i‘  start  with  CHAIN? 


Caul 


CHADfl: 


©  c 


Variable 

Form 

1ST0P 

5 

Ukaes  where  of  (fee  picpm  is  to 

j  =  1  stop  after  CHADfl 

If  ISTOP  1  =  X  stop  after  CHAD# 

|  =  i  stop  after  CHADfl’ 

c-«— ” 

a  of  do— 

ash  control  point  matrix 

ARRAY 

12A£ 

Title  card  for  CHADS:- 

NS 

m 

Sand  er  of  stations  aw  semispan  where  dpunwash 
control  joints  are  located 

X 

15 

Number  of  spauwise  nudes  to  be  used  la  pressure 
loading  series 

X 

15 

Number  of  chordnise  modes,  including  foe  flap 
modes,  to  be  used  m  pressure  loading  series 

© 


l  irirtatinn-  MxX$36 


NEED 

15 

Indicates  whether  or  not  oott/2  mode  is  to  be 
used 

ir  v-crn  I  =  0  don't  use  cots/2  mode 

U  NEED  {  ,lufie  cote/2  moie 

NFLAP 

15 

Number  of  leading  and  trailing  edge  flaps 

KPR 

15 

Print  control  for  D ; 

UNPR  1  =  print 

l  =  1  print 

NPU 

15 

Punch  control  for  ^Dj 

If  NPU  i  =0<k®'tPUDcl1 

1=1  punch 

NAY 

15 

Intermediate  print  control 

if  nay  j  =  0,  no  intermediate  printout 

1  I  =1,  intermediate  printout 

NO  LED 

15 

Number  of  leading  edge  discontinuities  (including 
root  and  tip  positions) 

NOTED 

15 

Number  of  trailing  edge  discontinuities  (including 
root  and  tip  positions) 
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Card 

Mo. 


Variable 


SPACE 


FMACH 

F 


F10.0  hmHeaUe  boar  aonwajb  control  pants  are 
located  cbonbrise  at  the  spanwise  control 

\  ».02  flhe  raise  is  used  to  space 
points  equidistant 
=  0  mat  specify  ckordrie 
locations 

P10.0  Mach  number 
F10.0  Boot  sexnichord 


If  SPACE 


Y3TAT|p 

FLP0S0) 

AML£(I) 

AMTE(I) 

YLEAD(D 

YTRAIL{I) 


Fin.  3 

F10.0 

F10.0 

F10.0 

F1G.0 

F10.0 


Sjposrise  locations  of  doncadi  control  oom:s. 
1  =  1,  NS. 


Chordwise  location  of  the  flap  hinge  line  in 
percent  of  chord.  1  =  1,  NFLAP 


Tangents  of  the  sweepfcack  angles  of  the  leading 
edges  of  the  geometric  regions.  1  =  1,  N0LED-1 


Tangents  of  the  sweephack  angles  of  the  trailing 
edges  of  the  geometric  regions.  1=1,  N0TED-1 


Spanwise  locations  of  leading  edge  discontinuities . 
I  =  1,  N0LED 


Spanwise  locations  of  trailing  edge  discontinuities. 
I  =  1,  NOTED 


•  If  SPACE  *  0,  omit  cards  10,11 


NCP(I)  15 


Number  of  down  wash  control  points  at  each 
spanwise  station.  1  =  1,  NS 


© 


XDWASH(J,  I)  F6.0 


Chord  wise  locations  of  dowrwash  control  point; 
at  each  spanwise  station,  in  fraction  of  chord. 

J  -  1,  NCPfl). 


•  There  now  follow  sets,  1  =  2.  NS.. 
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Card 

No. 


Variable 


Format 


Description 


•  ff  NAY  =0,  omit  card  12 


@ 


NAY3 

15 

Additional  prfei 

controls 

NAY4 

15 

HNAYI  | 

=  0  no  additional  pririotA 

NAYS 

15 

=  1  additional  printout 

MAY6 

15 

CHAINS :  Computation  of  least  squares  inverse  of  dbwnwash  control  point  matrix 


ARRAY 


12A6  Title  card  for  CHAIN  6 


© 


NROW 

NC0L 

NREAD 

NPR 

NPU 

NAY 


15 


15 


15 


15 


15 


15 


Number  of  rows  in  down  wash  control  point 
matrix,  or  number  of  control  points  contained 
in  [D] 

Number  of  columns  in  down  wash  control  paint 
matrix  [Dj.  This  is  the  product  of  chordwise 
and  spanwise  pressure  modes. 

Indicates  if  [d]  is  to  be  read  from  intermediate 
storage  tape  as  in  a  continuous  operation  or 
from  card  input 


If  NREAD  =  0  read  from  tape 
=  1  read  card  input 


Print  control  for  [d]'*' 
If  NPR 
Punch  control  for  [d]^ 


=  0  don't  print 
=  1  print 


If  NPU 


=  0  don't  punch 
=  1  punch 


See  definition,  card  2,  CHAINl 


♦ 


If  NREAD  =  1,  the  punched  matrix  [d]  is  inserted  at  this 
point.  This  is  the  output  obtained  from  CHAINl  when 
operating  in  a  noncootinuous  manner. 


CHAIN? : 

®c 


Computation  of  aerodynamic  coefficients 
ARRAY  12A6  Title  card  for  CHAIN7 
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Card 

No. 


Variable 

Format 

Description 

N 

15 

See  definition,  card  2,  CHAIN1 

M 

15 

See  definition,  card  2,  CHAIN1 

NS 

15 

See  definition,  card  2,  CHAIN1 

NR0W 

15 

See  definition,  card  2,  CHAIN6 

NETA 

15 

Number  of  span  wise  locations  where  chordwise 
pressure  loadings  are  to  be  calculated 

NDISC 

15 

Number  of  wing  discontinuities  (including  root 
and  tip  points). 

NFLAP 

15 

See  definition,  card  2,  CHAIN1 

NAY 

15 

See  definition,  card  2,  CHAINI 

NPSI 

15 

Number  of  chordwise  points  at  which  pressure 
loading  is  computed 

limit:  NPSI  50 

NALFA 

15 

Number  of  angles  of  attack  treated 

limit:  NALFA  ^  20 

NEPSLN 

15 

Indicates  number  of  EPSLN's  to  be  read  on  card 

NEED 

15 

See  definition,  card  2,  CHAINI 

NR  E  ADI 

15 

Indicates  if  [d]^  is  to  be  read  from  intermediate 
storage  tape  as  in  a  continuous  operation  or 
from  card  input 

|=0  read  from  tape 

NREADa  |  _  J  read  from  cards 

NREAD2 

15 

Indicates  if  the  downwash  matrix  [w]  is  read 
from  cards.  Due  to  the  modifications,  eliminating 
the  capability  co  compute  the  downwash  distribu¬ 
tion  from  the  <  amber  distribution,  NREAD2  MUST 
BE>ZERO. 

NW 

15 

Number  of  downwash  distributions  to  be 
considered. 
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Card 

JL*0. 


© 

© 

0 

© 

<3> 

© 


Variable  Format 


Description 


F 

F10.0 

SPACE 

F10.0 

YF 

F10.0 

DPSI 

F10.0 

r  YSTAT(I) 

F7.0 

j  ETA  (I) 

F7.0 

j  EPSLN([) 

F7.0 

|  ALFA  (I) 

F7.0 

I  FLP0S(I) 

F7.0 

I  CHORDfl) 

F7.0 

|  WHY  (I) 

F7.0 

j  DELTA(I) 

F7.0 

See  definition,  card  3,  CHAIN! 

See  definition,  card  3,  CHAIN1 

Spanwise  location  of  edge  of  fuselage 

Indicates  how  points,  where  pressure  loading 
is  to  be  computed,  are  located  chordwise  st¬ 
all  the  ETA*s 


If  DPSI 


S  .02  the  value  is  used  to  space  the 
points  equidistant 
<  0  must  specify  chordwise 
locations 


See  definition,  card  4,  CHAIN1 


Spanwise  locations  where  pressure  loading 
distributions  are  calculated  1  =  1,  NETA 


Angles  of  incidence  between  Q  of  fuselage  and 
wing  root  chord  in  degrees.  1  =  1,  NEPSLN 


Angles  of  attack  of  fuselage  in  degrees 
I  =  1,  NALFA 


See  definition,  card  5,  CHAIN1 


Chord  at  spanwise  discontinuities.  1  =  1,  NDISC 


Location  of  spanwise  discontinuities.  1=1,  NDISC 


Chordwise  distance  from  root  leading  edge  to 
leading  edge  at  spanwise  discontinuities 


•  If  SPACE  *  0,  oxr.it  card  13 


Q  Q  NCP(I)  12 


See  definition,  card  10,  CHAIN1 


*  If  DPSI  >  0,  omit  card  14 
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Card 

No. 


Variable 


Format 


Description 


♦ 


PSI(I)  F7.0  Chordwise  locations  of  points  where  pressure 

loading  is  to  be  computed  in  fraction  of  chord 

[If  NREAD1=  1,  the  punched  matrix  [D]^is  inserted  at 
this  point,.  This  is  the  output  obtained  from  CHAIN6 
when  operating  in  a  noncontinuous  manner. 


Wa,J) 


E14. 7  Tangent  of  the  downwash  angle  at  the  downwash 
control  points.  J  =  1,  NCP(I) 


•  There  now  follow  sets,  1  =  2,  NS. 


4.  OUTPUT 

Depending  on  the  options  specified  both  printed  and  punched  output  may  be  obtained. 

a.  Printed  Output 

CHAIN1  prints  pertinent  input  information  to  identify  the  problem.  CHAIN6, 
which  inverts  the  matrix  [d]  prints  out  the  determinant  of  the  unit  matrix  as  a 
check  on  the  numerical  accuracy.  CHAIN7  prints  geometric  parameters  of  the 
wing  (mean  aerodynamic  chord,  etc.).  It  also  prints  out  the  overall  and  local 
aerodynamic  coefficients  and  the  pressure  loading  at  the  spanwise  and  chordwise 
locations  specified. 

b.  Punched  Output 

CHAIN1  may  generate  the  downwash  control  point  matrix  [d]  in  punched  form 
to  serve  as  input  to  CHAIN6  when  the  components  of  the  program  are  net 
executed  in  a  continuous  manner. 

CHAIN6  may  generate  the  least  squares  inverse  of  the  downwash  control  matrix 
[D]*  to  serve  as  input  to  CHAIN7  when  <hat  component  of  the  program  is  being 
executed  independently. 

5.  PROGRAMMING  INFORMATION 

a.  Logical  Structure 

The  logical  flow  chart  for  the  modified  version  of  the  program  is  show  i 
in  Figure  16. 
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b.  Interdependence  of  Subroutines 


The  Calling-Called  matrix  for  the  program  is  shown  in  Figure  17. 
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FIGURE  15.  INPUT  DATA  FOR  LIFTING  SURFACE  PROGRAM 


NFLAP 
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FIGURE  15.  (Conducted) 


ISTART,  EST0P 


CHAIN1 


Read  DataCHAINl| 


1 


|  Compute  Down  wash 
Control  Point 
Matrix  [D] 


NPU=0 


Punch 
Matrix  (Dl 


IST0P>1 


1ST  ART-1 


ISTART=3 


ISTART=2 

- * 


CHAIN6 


Read  Data  CHAIN6 1 

r 

Compute  Least 
Squares  Inverse 
Matrix  [d}^ 


1 


NPU=0 


Punch 

Inverse!  [D]^ 

. » 

_ J 


IST0P>2 


CHAIN7 


Read  Data  CHAIN7} 

Compute 

Aerodynamic 

Coefficients 

and 

Pressure  Loading 


TERMINATE 


FIGURE  16.  LOGICAL  FLOW  CHART  FOR  LIFTING  SURFACE  PROGRAM 
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FIGURE  17.  CALLING-CALLED  MATRIX  FOR  LIFTING  SURFACE  PROGRAM 


I 
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i 
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SECTION  VI 


NONLINEAR  BOOT  AERODYNAMICS  PROGRAM 


1.  DESCRIPTION 

The  nonlinear  body  aerodynamics  compote r  program  combines  slender  body  theory 
and  viscous  cross  flow  theory  to  obtain  the  aerodynamic  coefficients  for  an  arbitrary 
body.  The  program  compotes  the  coefficients  Cjj,  Cm,  Cy,  Cn,  and  Cg  in  body  axes 
as  functions  of  resultant  angle  of  attack  a,  roll  angle  <p,  pitching  velocity  q  and  yawing 
velocity  r.  The  coefficients  are  printed  out  with  the  slender  body  contribution  and  the 
viscous  contribution  listed  separately.  The  rolling  moment  coefficient  Cg  does  not 
have  a  viscous  eontrimtion  calculated  for  it,  since  it  is  not  possible  to  formulate  a 
satisfactory  model  for  it.  Zero  is  printed  o^t  lor  the  viscous  contribution. 

It  is  assumed  that  a  mapping  is  known  for  the  sections  along  the  body  and  that  the 
coefficients  of  the  mapping  are  continuous  fili  ations  of  axial  distance  along  the  body. 

The  method  of  obtaining  the  mapping  is  described  in  Volumes  I  and  IT.  An  approximate 
method  has  also  been  described  and  is  preferred  where  simplicity  and  ease  of  use  are 
desired. 

2.  OPERATING  INFORMATION 

Core  and  Time  Requirements: 

Computer:  CPC  6600 

Core:  35. 5  Kg  to  load 

22. 1  K3  to  execute 

Time:  Approximately  .  1  minutes  for  a  run  with  nine  angles  of  attack 

and  one  set  of  <p  t  q  and  r. 

Additional  Requirements:  None 

3.  INPUT  DATA 

The  coordinate  system  utilized  by  the  program  is  that  shown  in  Figure  2  of 
Section  II. 


The  hq— datacards  rejoined  by  ike  program  are  shorn  it  Figaro  If.  The  iapot 
iirsfe  of  Crcmp  A  describe  fee  body.  The  cards  of  Gmp  P  ghe  de  flight  conditio— 
—4  refeKooe  dbeasi—  for  fie  co— pstatsas  cf  the  aerodynamic  soefficiecis.  Tie 
cards  are  grouped  int  thu  manner  and  discs&sed  in  detail  below. 

Caro 


No 

Variable 

Format 

Description 

GROUT  A:  Input  data  describing  the  body. 

MZT 

13 

The  maximum  number  cf  mapping  coefficients  of 
any  station  input  to  the  program 

Limit:  MZT  $12 

1 

XX 

13 

Number  of  input  data  stations  along  body 

Limit:  XX  $40 

© ! 

Cm  (i) 

El  2. 5 

Station  along  body.  1  =  1,  NX 

® 

|  RBI  (11 

E12.5 

Radius  of  mapping  circle  rc  at  input  station. 

1  =  1,  NX 

© 

p~  PRDX1  (It 

El  2. 5 

Derivative  of  the  mapping  circle  radius  with  respe 
to  X,  at  input  station.  1  =  1,  NX 

©  I 

[>(i) 

E12.5 

Cross  sectional  area  S  at  input  station.  I  -  1,  NX 

© 

|  DSDXl(I) 

E12.5 

Derivative  of  cross  sectional  area  with  respect  to 
X  ai  input  station.  I  =  1,  NX 

© 

|  CDCYl(I) 

El  2.  5 

Cross  sectional  drag  area  per  unit  length  in  the 
vertical  direction,  CpCy.  1  =  1, NX 

© 

CDCL1  (I) 

E12.5 

Cross  sectional  drag  area  per  unit  length  in  the 
lateral  direction,  Cpc7.  1  =  1,  NX 

© 

NZ 

> 

13 

Number  of  terms  in  mapping  function  at  station  I. 

I;  NZ  -  0,  MZT  will  he  used. 

Limit-  NZ  $  12 

Format 


Description 


Card 

Ho.  Variable 


H  ISM 


{=6,  symmetrical  crocs  seetior 
=  1,  —yinnnfik  ll  croas  section 


•  If  MZT>1  and  if  ISM  I-?*  ?BC}U*  car*  10’U 

i=l,  taclnde  cards  10a,  11a 


REAL!  El 2.  5 


Altercating  real  aid  imaginary  coefficients  of 
mapning  function  for  symmetrical  section. 


TfV7  1=0,  J  =  l.MZT-l 
HNZ  (>1,  J  =  1,XZ-1 


REPR1  (J,I)  E12.5 


Derivatives  of  mapping  function  coefficients 
with  respect  to  X  for  symmetrical  sections 


TfX7  f  =0,  J  =  1,MZT-1 
A  Z  I  >1,  J=1,NZ-1 


REAL1  (  J,  I)  E12.S 


XMAGl(J.I)  E12.5 


Real  component  of  coefficient  of  mapping  function 
for  unsym  metrical  section. 


UNz  (>?: 


Imagin;  jtv  component  of  coefficient  of  tr  apping 
functio  i  for  <msymmetrical  section. 


r  REPRl  (J,  I)  El 2.  5 


XMPRl(J.I)  El 2.  5 


Derivative  of  real  component  of  coefficient  of 
mapping  function  foi  unsymmetrical  section. 


Derivative  of  imaginary  component  of  coefficient 
of  mapping  function  for  unsym  metrical  section. 


•  T  *re  now  follow  sets  of  cards,  1  =  2,  NX 
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Card 

Ho.  VaridMe 


Format 


Description 


GROUP  B:  input  data  specifying  flight  conditions  and  reference  dimensions  for  Lie 
computation  of  dte  aerodynamic  coefficients. 


|  O0MHT 

18A4 

Comment  card 

REF 

F10.4 

Reference  length  4r 

SREF 

Fie.  4 

Reference  area 

CG 

F10.4 

X-coonfinate  of  the  coder  of  gravity  and  moment 
center 

DX1 

F10.4 

Incremental  step  size  for  integrating  along  the 
X-axis 

NA 

12 

Number  of  angles  of  attack  at  which  coefficients 
are  to  be  computed 

Limit:  NA516 

NP 

12 

Number  of  roll  angles  for  which  coefficients  are 
to  be  computed. 

limit  NP5  9 

NQ 

12 

Number  of  pitching  velocities  for  which  coefficients 
are  to  be  co.  iputed 

Limit  NQ  %  9 

NR 

12 

Number  of  yawing  veloci  ties  for  which  coefficients 
are  to  be  computed. 

— 

Limit:  NR  5  9 

©  1 

ALPHAl  (I) 

F8.4 

Angle  of  attack,  in  degrees.  1  =  1,  NA 

©  1 

1  PHI1(I) 

F8.4 

Roll  angle,  in  degrees.  1  =  1,  NP 

©  1 

~Q1(D 

F8.4 

Pitching  velocity,  ,in  radians.  I  =  1,NQ 

2Uoo 

©  1 

R1(I) 

F8.4 

r  / 

Yawing  velocity,  — -E-  ,  in  radians.  1=1,  NR 

2Uqo 

4.  OUTPUT 


Figure  19  shove  sample  output  for  the  nonlinear  body  aerodynamics  program. 


The  tide  card  is  reproduced  on  the  firct  line.  The  second  line  shows  the  roll  angle 

PHI  (<t>,  m  degrees),  the  pitching  velocity  Q  ( -JfS  ,  in  rads)  and  yawing  velocity 

./  zu® 

B  (  t  in  rads)  at  winch  the  aerodynamic  coefficients  are  to  be  computed. 

2U® 

The  program  then  tabolate.3  the  computed  coefficients .  The  table  is  headed  to 


identity  the  angle  of  attack,  ALFA,  and  the  aerodynamic  coefficients  being  computed, 
CN  (CN),  CM  (Cm),  CY  (Cy),  CEM  (C^)  and  CRM  (C/).  For  each  angle  of  attack 
specified  in  degrees,  a  potential  set  of  coefficients  and  a  viscous  set  of  coefficients 


is  listed.  The  complete  coefficients  can  be  obtained  by  adding  the  two  parts. 


If  more  than  one  PHI,  Q  or  R  has  been  specifted  as  part  of  the  input,  the  program 
will  repeat  the  tabulation. 


5.  PROGRAMMING  INFORMATION 
a.  Logical  Structure 

The  logical  flow  chart  for  the  program  is  shown  in  Figure  20. 


b.  Purpose  of  Subroutines 


DATA 

C0EFF 


L0CVAL 

AINTRP 


Reads  and  stores  the  portion  of  the  input  data  dealing  with  the 
description  of  the  body 

This  routine  sets  a  s'  "*p  size  for  integrating  forces  ari  moments 
along  the  body.  It  calls  L0CVAL  which  returns  body  parameters 
at  the  desired  station  and  then  calls  F0RCE  which  computes  pieces 
of  the  coefficients  up  to  the  given  station.  When  this  routine 
reaches  the  rear  end  of  the  body,  enough  information  is  available 
for  the  main  program  to  compute  the  potential  coefficients. 

Obtains  interpolated  body  data  at  the  station  required  by  C0EFF 

Interpolation  routine.  Determines  a  body  parameter  as  a  function 
of  the  axial  distance. 


F0RCE  —  Computes  parts  of  the  potential  force  and  moment  coefficients 

up  to  the  station  at  which  i<  is  called.  When  it  is  called  at  the  rear 
end  of  the  body,  it  d  ermines  the  parametTs  needed  for  com¬ 
puting  the  rolling  moment  . 
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vise 


—  Computes  the  viscous  contributions  to  Cjj,  Cm,  Cy  and  Cn  by 
dividing  the  body  into  increments  and  integrating  the  viscous 
equations  along  the  body. 

c.  Interdependence  of  Subroutines 

The  Calling-Called  matrix  for  the  program  is  shown  in  Figure  21. 
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FIGUFE  18.  INPUT  DATA  FOR  NONLINEAR  BODY  AERODYNAMICS  PROGRAM 


MAIN  PROGRAM 


FIGURE  20.  LOGICAL  FLOW  CHART  FOR  NONLINEAR  BODY 

AERODYNAMICS  PROGRAM 
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FIGURE  21.  CALLING-CALLED  MATRIX  FOR 
NONLINEAR  BODY  AERODYNAMICS  PROGRAM 
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SECTION  vn 


NONLINEAR  WING  AERODYNAMICS  PROGRAM 

1.  DESCRIPTION 

The  nonlinear  wing  aerodynamics  program  determines  the  aerodynamic  coeffi¬ 
cients  CN,  Cm>  and  in  a  body  axis  coordinate  system  as  functions  of  angle  of  attack 
a,  sideslip  angle  /9,  pitching  velocity  q,  rolling  velocity  p  and  yawing  velocity  r.  The 
theoretical  background  for  the  method  is  described  in  Volume  I  and  the  application  to 
a  sample  problem  is  given  in  Volume  n. 

2.  OPERATING  INFORMATION 

Core  and  Time  Requirements: 

Computer:  CDC  6600 
Core:  43. 4  Kg  to  load 

30. 2  Kg  to  execute 

Time:  Approximately  .  3  minutes  for  a  nm  with  two  angles  of  attack  and 

two  iterations  per  angle  of  attack 

Additional  Requirements:  None 

3.  INPUT  DATA 

The  coordinate  system  utilized  to  describe  the  input  is  that  of  Figure  14  of 
Section  V.  However,  all  dimensions  are  nondimensionalized  with  respect  to  the  wing 
root  chord.  Only  the  data  for  the  starboard  panel  of  the  wing  are  specified,  since  the 
wing  is  assumed  to  be  geometrically  symmetric. 

The  input  data  cards  required  by  the  program  are  shown  in  Figure  22  and  are 
described  in  detail  below. 
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Card 

No. 


® 


® 


© 


Variable 

Format 

Description 

ALPHA 

F9.5 

Initial  value  for  the  wing  angle  of  attack  a, 
in  degrees 

BETA 

F9.5 

Angle  of  sideslip  >  in  degrees 

DALPHA 

F9.5 

Step  size  of  alpha,  in  degrees 

ETAO 

F9.5 

Y-coordinate  of  wing  root  chord 

ETAB 

F9.5 

Y-coordinate  of  wing  tip  chord 

TR 

F9.5 

Wing  taper  ratio 

TNLE 

F9.5 

Tangent  of  sweepback  angle  of  wing  leading  edge 

P 

F9.5 

n/r 

Rolling  velocity,  ,  in  radians 

Q 

F9.5 

Pitching  velocity,  -2^ ,  in  radians 

2Uod 

R 

F9.5 

a 

Yawing  Velocity,  ,  in  radians 

2U  oo 

REFL 

F9.5 

Reference  length,  ir,  in  percent  of  root  chord 

XCG 

F9.5 

X-coordinate  of  pitching  velocity  axis 

ZCG 

F9.5 

Z-coordinate  of  yawing  velocity  axis 

CD 

F9.5 

Drag  coefficient  of  wing  section  at  a  -90° 

CDXP0S 

F9.5 

X-coordinate  of  line  of  action  of  section  drag 
at  a  =90°,  in  percent  of  root  chord 

NSTA 

16 

Number  of  circulation  control  stations  on  one 
wing  panel 

Limit:  NSTA  <10 

NDWSH 

16 

Number  of  down  wash  control  stations  on  one 
wing  panel 

NDWASH  must  be  set  equal  to  NSTA-1.; 
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Format 


Description 


Card 

No.  Variable 


© 


<D 


L 

c 

r 


© 


© 


@ 


© 


c 

r 


NALPHA 

16 

NIT 

16 

NSYM 

16 

ETA  (I) 

F9.5 

ETADW(I) 

FS.5 

XIO  (3) 

F9.5 

TN  (1) 

F9.5 

XIO  (2) 

F9, 5 

TN  (2) 

F9.5 

XIO  (3) 

F9.5 

TN  (3) 

F9.5 

ALPHEF  (I) 

F9.5 

AL  (I) 

F9.5 

WGHT(I)  rs 


Number  of  angles  of  attack 

Number  of  iterations  on  the  effective  angle  of 
attack  for  each  a 


Symmetry  indicator 


If  NSYM 


=0,  symmetrical  wing  loading 
=1,  asymmetrical  wing  loading 


Y-coordinate  of  circulation  control  station,  in 
fraction  of  root  chord .  1  =  1,  NSTA 


Y-coordinate  of  downwash  control  station,  in 
fraction  of  root  chord.  I  =  1,NDWASH 
Use  same  values  as  ETA(1) 

X -coordinate  of  the  inboard  extremity  of  the 
leading  lifting  line,  in  fraction  of  root  chord 

Tangent  of  the  sweepback  angle  of  the  leading 
lifting  line 


X-coordinale  of  the  inboard  extremity  of  the 
aft  lifting  line 

Tangent  of  the  sweepback  angle  of  the  aft 
lifting  line 


X-coordinate  of  the  inboard  extremity  of  the 
downwash  control  line 

Tangent  of  the  sweepback  angle  of  the  downwash 
control  line 


Estimate  of  the  effective  angle  of  attack  for  each 
downwash  control  station.  1  =  1,  NDWSH 


Angles  of  attack  for  which  the  weighting  of  the 
circulation  between  the  two  lifting  lines  is  to  be 
input.  1  =  1,10  (See  Vol  II,  p.167) 


Values  of  the  weighting  function  at  the  a's  given 
in  card  15.  1  =  1,10 


04 


4.  OUTPUT 


nr_ 

The  angles  of  attack  and  sideslip  are  printed  oat,  followed  by  P  ( ,  in  radians), 
§  r/  od 

Q  <2u  *  ra^ians)>  311(1  R  “  radia,ls)-  'rbe  epanwise  loading  and  effective 


angle  of  attack  are  then  printed  out. 


The  normal  force  coefficient  (normalized  by  wing  area  and  freestream  dynamic 
pressure)  and  body  axis  moment  coefficients  (normalized  by  the  reference  length  /r) 
are  printed  out. 


This  set  of  output  (except  for  angles  of  attack  and  sideslip)  is  repeated  for  the 
number  of  iterations  on  effective  angle  of  attack,  specified  in  the  input. 

The  above  output  is  repeated  for  the  number  of  angles  of  attack  specified. 


5.  PROGRAMMING  INFORMATION 
a.  Logical  Structure 

The  logical  flow  chart  for  the  program  is  shown  in  Figure  23. 


b.  Purpose  of  Subroutines 

WGT  —  Determines  weighting  of  circulation  between  the  two  lifting  lines 

GAUSS  -  Performs  numerical  integration,  using  16  point  Gaussian 
quadrature 

LGRANG  —  Determines  expression  for  the  total  circulation  as  a.  function 
of  values  at  the  circulation  control  points,  using  Lagrange's 
method. 

LLINE  —  Determines  the  influence  coefficients  matrix  for  the  downwash 
due  to  the  bound  vorticity 

TRV0RT  —  Evaluates  the  influence  coefficients  matrix  for  the  downwash 
due  to  the  trailing  vorticity 

MATINV  -  Calculates  the  inverse  of  the  influence  coefficients  matrix 

FMINT  -  Integrates  the  span  loading  to  determine  the  body  axes  force 
and  moments 

f  0UM1  -  Evaluates  the  integrand  required  in  LLINE 


P0RM2  -  Evaluates  integrand  required  in  TRV0RT 
P0RM3  —  Evaluates  integrand  required  in  TRV0RT 

c.  interdependence  o i  Subroutines 

Ibe  Calling-Called  matrix  for  tee  program  is  shown  in  Figure  24 
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MAIN  PROGRAM 


L _ I 


FIGURE  23.  LOGICAL  FLOW  CHART  FOR  NONLINEAR  WING 
AERODYNAMICS  PROGRAM 
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FIGURE  24.  CALLING-CALLED  MATRIX  FOR 
NONLINEAR  WING  AERODYNAMICS  PROGRAM 
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APPENDIX 

COMPUTER  PROGRAM  LISTINGS 


Preceding  page  blank 
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o  n  o  o  r>  n  n  n  n  n 


PROGRAM  JET3  ( INPUT, OUTPUT, PUNCH, TAPE5*INMUrfTAPE6«OUTPUT, 
1TAPE7*PUNCH) 

EVALUATION  OF  JET- INDUCED  VELOCITY  FIELD  f MAXIMUM  OF  3  JETS) 
INITIAL  JET  EXHAUST  DIRECTION  MUST  BE  THE  SAME  FOR  ALL  THREE  JETS 
?:OR  3” JET  COMPUTATIONS,  JET  EXITS  MUST  ALL  BE  IN  THE  SAME  XY  PLANE 

DIMENSION  COEFRI 15,25) «COEFI I  IS, 25) 

0 1 MENSI ON  STAYNt 25 i , RAD 1US 1 25 ) , SL P3D<  25 ) 

DIMENSION  X1<100),ZI(100),UJ1(100),D1(100),DXDZ1(  IOC) 

DIMENSION  X2(100),Z2(I00),UJ2(100), 02(100), DX0Z2I 100) 

01 MENSI ON  X3 (100 ) , Z3 ( 100 ) ,UJ3 < 100 ) , D3 ( 100 ) , OXDZ 3( 100) 

DIMENSION  XA ( 100 ) , ZA ( 100 ) »  U  JA ( 100 ),0A(100),0X0ZA(100) 

DIMENSI ON  X5 ( 100 ) , Z5 ( 100 ) ,U J5 ( 100 ) , D5 ( 100 ) , OXDZ 5 ( 100 ) 

DIMENSION  XBASlf 100) ,YB AS  1(100 1, ZB AS It  100) 

DIMENSION  X8AS21 100) «YBAS2 (100 )?  ZBAS2( 100) 

DIMENSI ON  XBAS31 100 ) , YBAS3 ( 100 1 , ZBAS31 100 ) 

DIMENSION  XBASAI 100) ,YBASA( 100 ),ZBASA( 100) 

DIMENSION  XBAS5( 100) «YBAS5(i00), ZBAS5( 100 ) 

DIMENSION  CF1 (3,3) ,CF2 (3, 3),CF3 (3, 3),CFA( 3, 3),CF5( 3,3) 

DIMENSION  UUEl (100) ,UUE2( 100) ,UUE3( 100),UUEA( 100) ,UUE5( ICO) 
DIMENSION  PAR ( 10 ) 

DIMENSION  SOXOZl(lOO), $0X022(100), SDXD23(lOO),SDXOZA( 100), 

1  S0X0Z5 ( 100) 

COMMON/BLKl /ST ATN, RADIUS , SLP3D, COEFR, COEF I 

C0MM0N/BLK2/CF1,CF2«CF3,CFA,CF5«UUE1,UUE2,UUE3, UUEA«UUE5,PAR 
C0MM0N/BLK3/X1 *Z1,UJ1,D1,0X0ZI,X2,Z2,UJ2,D2,DX0Z2 
C0MM0N/BLKA/X3 ,Z3,UJ3,03, DX0Z3,XA, ZA,UJA, DA,DXDZA 
C0MM0N/BLK5/X5 ,Z5,U J5.05, DXDZ5 

C0MM0N/BLK6/XBAS1 , YBAS1 , ZBAS1 ,XBAS?, YBAS2, ZBAS2, XBAS3,YBAS3,ZBAS3 
C0MM0N/BLK7/XBASA, YBASA, ZBASA,XBAS5, YBAS5, ZBAS5 
C0MM0N/BLK8/ALFQ,B£TQ,GETC1,F1,  F2,  F3,FA,  F5*  VKONST 
C0MM0N/BLK9/MULT  ,  IH0L01.,  IH0LD2,  IH0LD3*K0UNTlc K0UNT2 
COMMON/BLKl 0/1  ONE, I  TWO, ITHR, I  FOUR, IFIV,N1,N2,N3,NA,N5 
COMMON/BLKl 1/IFIX1,IFIX2, IFIX3 

C0MMCN/8LK12/X J1«YJ1«2J1,DJET 1,VELJ1,XJ2,YJ2,  ZJ2, DJET2, VELJ2 
COMMON/BLKl 3/XJ3,YJ3,ZJ3,D JET  3, VEL.J3,XJ4*YJ4,ZJ4,0JET4,VEIJ4 
C0MM0N/BLK1A/X J5,Y J5,ZJ5, DJET5,VEL J5 

C0MMCN/BLK15/6,62,63,GA,55,STEPI,STEPI2, STEPI3, STEPIA,STEPI5 
C0MM0N/BLK16/V2X1,V2Y1,V2Z1, V2X2,V2Y2,V2Z2,V2X3, V2Y3, V2Z 3 
C0MM0N/BLK17/V2XA,V2YA,V2ZA 
C0MM0N/BLK,8/DR3,DRA,DR5 

COMMON/BLKl 9/ SDXDZ1, SOX DZ2, SOX DZ3,S OXDZ A, SDXDZ 5 
C0MM0N/BLK20/DI ARAT ,OREF 

DIMENSION  X0(600)«Y0( 600 ) , ZO ( 600 ),U(600),V( 600 ) ,  W  ( 600 ) 

DIMENSION  CP ( 600  ) 

DIMENSION  PH!D(3)«PSID<3) 

SET  PARAMETERS 

El  «  .45 
E2  *  .08 
E3  *  30. 

PI  *  3.1416 
Cl  *  2.2A 
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READ  IN  JET  DATA 

READ  (5,501)  MULT, IGEOM, (PUNCH 
READ  (5,502)  ALFA, BETA 
READ  (5,503)  N,G 

501  FORMAT  (1216) 

502  FORMAT  (6F12.0) 

503  FORMAT  (I6,F12.0) 

READ  (5,502)  X J1 ,YJ1 ,ZJ1,PHID ( 1 ),PS ID( l ),0JET1, VELJl 
IF  (MULT-2)  6,2,2 

2  READ  (5,502)  XJ2,YJ2,ZJ2,PHI0(2),PSID(2),0JET2,VELJ2 
IF  (MULT-2)  6,6,3 

3  READ  (5,502)  XJ3,YJ3,ZJ3,PNID(3),PSI0(3),DJET3,VELJ3 
6  CONTINUE 

RE«.D  (5,502)  OIARAT 
NRITE  (6,690) 

IF  (MULT-2)  16,15,16 
16  WRITE  (6,603) 

603  FORMAT  ( 1H0,66X,32H***  SINGLE  JET  CONFIGURATION  ***/) 

N1  «  N*l 
GO  TO  IT 

15  WRITE  (6,606) 

606  FORMAT  ( 1H0,65X,29H***  TWO- JET  CONFIGURATION  ***/ ) 

GO  TO  IT 

16  WRITE  (6,605) 

605  FORMAT  ( 1H0.66X.31H***  THREE-JET  CONFIGURATION  **♦/) 

IT  CONTINUE 

WRITE  (6,606)  X Jl ,Y J1 , Z J! , PHI 0 ( 1 ) , PS ID( 1  )* VEL J 1 

606  FORMAT  I IH0.22X.6HX JET , 1 1X,6HY JET, 11X, 6HZ JET, 12X, 3HPHI, 12X, 3HPSI , 
112X«5HU/UJ0/15X,F15*6« IX, F16*6, IX, F 16 ,6, 1X.F16.6, IX, F 16. 6, IX, 
2F16.6) 

IF  (MULT-2)  20,13,18 

18  WRITE  (6,60T )  XJ2, Y J2, Z J2, PHI D ( 2 ) , PS I0( 2  ) , VELJ 2 

60T  F0RMAT(15X,F15.6,1X,F16.6,1X,F16.6,1X,F16,6,1X,F16.6, 1X.F16.6) 

IF  (MULT-2)  20,20,19 

19  WRITE  (6 ,60T)  X J3, Y J3, L J3, PHI  0 ( 3 ) , PS  I D( 3 ), VEL J 3 

20  CONTINUE 

WRITE  (6,608)  ALFA, BETA 

608  FORMAT ( 1H0, /22X. 19HANGLE  OF  ATTACK  *, IX, FT.2/22X, 19HANGLE  OF  SIO 
IESLTP  «,IX,F7.2> 

WRITE  (6,609)  N,G 

609  FORMAT ( 1HQ»/22X,32HNUHBER  OF  STEPS  IN  INTEGRATION  «■» 1 X, I  3, /22X,22H 
1INTEGRATI0N  INTERVAL  *,1X,F5.2,IX, 18HJET  EXIT  DIAMETERS) 

CALL  TRANS1  (MULT, ALFA, BETA, PSID) 

DO  8  I»l,MULT 
PHI  »  PHID( l ) **0176533 
PSI  ■  PSIO(I)*. 0176533 
IF  (1-2)  5,6,7 
5  CONTINUE 

CALL  CFCAL  (ALFQ,8ETG,GETQ,PHI,PS  I, CM) 

V2X1  »  SIM  PHI )  *COS  (  PSI ) 

V2YI  ■  COS(PHI) 

V2ZI  »  SIN«PHI)*SIN(PSII 

CALL  ROTATE  (V2Xi,V2Yl,V2Zl«CFl,VXT,VYT,VZT,0) 

UJ1(1)  *  1. 

Old)  *  l. 

XI  ( 1 )  *  0. 

Zlll)  -  0. 
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OXOZlti)  *  VXT/VZT 
XBASl(l)  *  XJ1 
^ASHi)  *  YJl 
ZBASl(l)  *  ZJi 
STEPI  -  .2*G 
D  >  ATAN( VXT/VZT) 

IF  (VXT)  901,902,902 

901  Fi  «  .3*CCS(0) 

GO  TO  903 

902  Fi  *  *3/003(0) 

903  CONTINUE 
GO  TO  8 

6  CONTINUE 

CALL  CFCAL  (ALFQ,BET0«6ETQ,PHI«PSI,CF2) 

V2X2  *  SI N ( PH I ) *COS (PSI) 

V2Y2  »  COS! PHI) 

V27 2  *  $IMPHi)*SIN(PSI) 

CALL  kOTATE  ( V2X2» V2Y2,V2Z2,CF2, VXT, VYT, VZTfO) 
UJ2 ( 1)  *  1. 

02(1)  *  1. 

X2(i)  *  0. 

Z2(l)  -  0. 

DXDZ2(1)  *  VXT/VZT 
XBAS2( 1 )  *  XJ2 
YBAS2 ( 1 )  =  VJ2 
Z8AS2( 1 )  *  2J2 
G2  *  G*D JET 1/9 JET? 

STEPI2  «  .2*G2 
0  «  ATAN( VXT/VZT I 
IF  ( VXT)  904,905 ,905 

904  F2  «34CCS*0) 

GO  TO  906 

905  F2  *  . 3/CGS (0) 

906  CONTINUE 
GO  TO  8 

7  CONTINUE 

CALL  CFCAL  (ALFQ,BETQ,GETC,PHI,PSI,CF3) 

V2X3  x  SI  A ( PHI )*COS ( PSI ) 

V2Y3  *  COS(PHI) 

V2Z 3  *  S!N(PHI)vSIN(PSI) 

CALL  ROTATE  (V2X3.V2Y3, V2Z3,CF3,VXT,VYT,VZT, 0) 
UJ3 ( 1 )  *  l. 

03(1)  *  1. 

X  3  C  l )  *  0. 

Z3(  1)  «  0. 

DXDZ3(ll  *  VXT/VZT 
XBAS3I 1 )  *  XJ3 
YBAS3I 1 )  =  YJ3 
ZBAS3 ( 1 )  *  ZJ3 
G3  *  G*0JETl/0JET3 
STEPI3  *  ,2*G3 
0  *  ATAN( VXT/VZT ) 

IF  (VXT)  907 ,9''8 ,908 
9C7  F3  *  .3*CCStP? 

60  TO  909 

908  F  3  *  . 3 /COS ( 0  5 

909  CONTINUE 

8  CONTINUE 


C 


oooooo  non  no 


TEST  INITIAL  JET  EXHAUST  DIRECTION  IHUST  BE  THE  SANE  FOR  ALL  JETS) 
IF  (NULT-~2)  11*10*9 

9  CALL  XPROO  (ALFQ,BETQ,GETQ,V2X3,V2Y3,V2Z3,XT3, YT3.ZT3) 

10  CALL  XPRGD  ( ALFQ,BETC,GETQ,V2X2,V2Y2cV2Z2, XT2, YT2,ZT2 ) 

CALL  XPROO  (ALFQ,BETQ,GETQ,V2XI,V2Y1,V2Z 1*XT1*YT1*ZT1) 
tF  ( ABS ( XTI-XT2 )-«000l )  700*700*799 

700  IF  (ABSl YTI-YT2I-.0001 )  7ul, 701,799 
7G1  IF  ( ABS ( ZT1-ZT2 ) -• 0001 )  702,702*799 

702  IF  (PULT-2)  11,11,12 

12  IF  (ABS<m-XT3)-.OOOn  703*703,799 

703  IF  (ABS IYT1-YT31 -• 0001 )  709,704,799 

704  IF  (ABS( ZT1-ZT3I-.0001 )  11,11,799 
799  NRITE  (6*620) 

620  FGRNAT  (1H0.71HJETS  DO  NOT  EXHAUST  IN  PARALLEL  PLANES,  CONFIGURATI 
ION  CANNOT  BE  TREATED) 

STOP 

11  CONTINUE 

CALL  VEL1  ( MULT, ALFA, VK1*VK2) 

PAR ( 1 )  *  El 
PAR(2)  *  E2 
PAR (3)  *  E3 
FAR (7)  *  PI 
PAR (8)  *  'l 
PAR(9)  *  1. 

TESTS  FOR  BLOCKAGE  ANO  INTERSECTION, PART  OF  INTEGRATION  LOOP 

N2  *  0 

N3  ■*  0 

N4  *  G 

N5  *  0 

IHGLOl  »  0 

IH0LD2  *  0 

IHCL03  *  0 

KCUNT1  *  0 

K0LNT2  *  0 

TNEG  *  BETQ4V2Y1 

DREF  «  DJET1 

DO  50  1*1, N 

I  ONE  *  I 

IThO  *  I 

I THR  *  I 

IFCliR  *  I 

IFIV  *  I 

WKCNST  *  VKl 

IF  (ftULT-2)  21,22,23 

22  IF  (IHCLDl-l)  25,25,21 

23  IF  ( IH0LD3- 1 I  25,25,21 

25  CALL  BITEST  ( I ,TNEG,VK1,VK2) 

21  CONTINUE 

INTEGRATION  OF  THE  ECUATIONS  OF  NOTION  FOR  THE  JET  PATH 

CAil  INTEG  (I, TNEG) 

50  CONTINUE 

READING  IN  CONTROL  POINTS  WHERE  VELOCITIES  WILL  BE  COMPUTED 


IF  (IGEOP-2)  61,62,63 

61  READ:  (5,501)  NTHT,NSNAX,NCOEF,  IRECT 

CALL  TRUING  (NTHT,NSNAX,NCQEF, IRECT «XO»YO, ZO,NK ) 

NSYP  «  l 
GO  TO  65 

62  REAO  (5,501)  NTHT,NSNAX#NCOEF,NSYH 

CAU  TR8C0Y  (NTHT,NSMAX,NCOEF,NSYM,XO,YO,ZO,NK ) 

GO  TO  65  1 

63  READ  (5,501)  NSMAX.NC 
NK  *  NSPAX*NC 

READ  (5,502)  (XO (I ) , Y0( I ) , Z0( I ) ,  I-l.NK) 

65  CONTINUE 

CALL  TRANS2  (YO,ZO,NK) 

C 

C  EVALUATE  INOUCED  VELOCITIES  AT  EACH  POINT 
C 

DO  80  J*l,NK 
U(J)  *  0. 

V(J)  »  0. 

W(JJ  *  0. 

PAR (6)  «  VELJ1 
PAR (5)  a  FI 
PAR (9)  *  1. 

CALL  VELCC  ( 1 ,N1 ,Z1,X1 ,OXCZl,U Jl, Dt.UUE 1, XJ 1, Y ) 1, Z J l, DJE T1,CF1, 
1  PAR,XO( J),YO( J) ,Z0( J), (UNO, VINO, MIND, SDXDZ1) 

IJ(J)  »  U(J)«UIND 
V(J)  «  V ( J) +VI NO 
U(J)  -  W ( J ) +HI NO 
IF  (RULT-2 )  80,51,51 

51  PAR (61  «  VELJ2 
PAR (5)  »  F2 
PAR (9)  »  l. 

CALL  VELOC  ( 1 ,N2 ,Z2t X2 , DXDZ2, U J2, D2,UUE2,X J2, Y J2, Z J2, DJET2.CF2, 
1  PAR,XO( J).YO(J) ,Z0( J>, UINP.V INC, WIND, SCXDZ2) 

U(J)  «  U ( J ) +UI ND 
V  ( J  >  «  V ( J ) ♦V I  NO 
W (  J >  a  ta( JI+HINO 
IF  IRULT-2)  80,52,53 

52  IF  (IHOLDl-1)  80,80,M 
5A  N3  »  I  THRU 

PAR (9)  a  0R3 
GO  TO  55 

53  PAR J9)  a  l. 

55  PAR (6)  «  VELJ3 
PAR (5)  a  F3 

CALL  VELOC  (1 ,N3 ,Z3 ,X3 , 0X0Z3.U J3, D3,UUE 3, X J3, Y J 3, ZJ3,0JET3,CF3, 
1  PAR,XO( J),YO( J) ,Z0( J) ,UIN0,VIND,WIND,S0X0Z3) 

U(J)  *  U ( J) *UI NU 
V ( J  )  a  VUl+VINO 
W(J)  *  W(J)«W1ND 
IF  (PULT-2)  80,80,56 

56  IF  (IHOLCI-1)  57,57,58 

57  IF  ( IH0LD2- l )  80,80,58 

58  PAR ( 6 )  *  VELJA 
PAR (5 )  =  FA 
PAR (9)  *  ORA 

CALL  VELOC  (1,NA,ZA,XA,0XDZA,UJA,DA, JUEA.XJA, VJA, 7 JA, DJE T A ,CF A, 
l  PAR,XO( J) ,Y0( J) ,Z0( J) ,U1NC,VIND,WIND,SCXCZA) 
li(JI  >  U(J)«UING 


7  fi 


noon  n  o  o  non  o  o  o 


V(J)  «  VUJ+VIND 
WU)  *  W( J)+WIND 
IF  f  IH0LD3-1 )  80,80,59 
59  N5  *  IFIV+1 

PAR(6)  *  VELJ5 
PAR15I  «  F5 
PAR (9)  *  ORS 

CALL  VELOC  (l,N5,Z5,XS,0XDZ5»UJ5,05,UUE5,XJ5,YJ5,ZJ5,DJET5,CF5, 

1  PAR,X0( JI,Y0( J),Z0( J),UIND, VINO, WIND, SCXDZ5) 

U(J)  »  U(J)*UIND 
VIJ)  *  V(J)UiND 
W(  J)  *  N(JI+UIN0 

80  CONTINUE 

COMPUTE  FLAT  PLATE  PRESSURE  COEFFICIENT 

IF  (IGEOM-3)  90,90,81 

81  00  85  J*1 »NK 

CPT  «  4.*(U( J)*( ALFQ+U( J) )*W ( Jl*( GfcTQ*W( J 1 ) ) 

85  CPU)  *  i.-(ALFG*ALFC  ♦GETQ*GETQ  ♦C.'T) 

90  CONTINUE 

CALL  TRANS3  (Y0,Z0,V,W,NK) 

PRINT  OUT  COMPUTED  RESULTS 

WRITE  (6,690) 

690  FORMAT  (1HI) 

CALL  PR  TOUT  (  IGECH,XO,YO,ZO,U,V,W,CP»NK,U.i:T) 

PUNCH  OUT  DATA  FCR  TRANSFORMATION  METHOD  OR  LIFTING  SURFACE  PROG. 

IF  (IGECM-2)  96,96,97 

96  IF  (I  PUNCH)  95,99,95 

95  CALL  AO APT ( U,V,W,NTHT ,NSMAX,NCOEF, IGEOM ) 

GO  TO  99 

97  IF  (IPUNCH)  98,99,98 

98  DO  101  1*1, NK 

101  wm  *  -uni 

J1  =  1 

DO  102  I*l»NSPAX 
J 2  «  Jl+NC-1 

WRITE  (7,710)  (W(J),  J*Jl, J2) 

102  J1  *  J2+1 

710  FORMAT  (5E14.7) 

99  CONTINUE 
STOP 
END 


SUBROUTINE  BITEST  1 1 *TNEG,VK1 ,VK2 ) 

TESTS  FCR  BLOCKAGE  AND  INTERSECTION, CALLED  AS  PART  OF  IMTEGRATION 
I.CCP 

DIMENSION  COEFRI 15,25) ,COEFI 1 15,25) 

DIMENSION  5TATN(25)»RA0IUSI25)»SlLP30(25) 

DIMENSION  Xl(l 00), 71(100 ),UJ1(1 00), 01(100), DXDZli ICO) 

DIMENSION  X2UOO),Z2UOO),UJ2(lOO),D2llCO),DXOZ2l  ICO) 

DIMENSION  X3I iOO),Z3( 100) ,UJ3( 100)«C3( 1GC)*3XDZ3C ICO) 
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DIMENSION  X* ( 100 ) «  Z* ( 100 ) «UJ* ( 100 } 9 04 ( 100 ) * DXDZ A( 100) 

DIMENSION  X5(lGO),Z5(100),UJS(lQO)^05(lOO),OXOZ5(  100) 

D I  MENS ION  XBAS1 ( 100 ) , YBAS 1 ( 100 ) , ZBAS 1  ( 100 ) 

DIMENSION  X8AS2 ( 100) *YBAS2 ( 100 ) ,ZBAS2( 100 ) 

DIMENSION  XBAS3 ( 100 ) , YBAS3 ( 100 ) t ZBAS3 ( 100 ) 

DIMENSION  XBAS* ( 100 ) , YBASA ( 100 ) , ZBAS* ( 100 ) 

DIMENSION  XBAS5 ( 100 ) ,YBAS5 ( 100  B , ZBAS5 ( 100 ) 

DIMENSION  CF1(3,3),CF2<3,3),CF3(3,3),CF*(3,3),CF5(3,3) 

DIMENSION  UUEi (100) ,UUE2 ( 100) ,UUE3 ( 100) ,UUEA( 100) ,UUE5( IOC) 
DIMENSION  PAR(IO) 

C 

COMMON/ BLKl / ST AT Nf RADIUS »SLP3D«C0EFR»C0EF I 

C0MM0N/BLK2/CF1 ,CF2*CF3»CFA,CF5,UUE1*UUE2»UUE3,UUEA»UUE5,PAR 
CGMMCN/8LK3/Xl,Zl,UJl,01,GXDZl«X2, Z2,UJ2«D2,DXDZ2 
COMMON/BLK*/X3,Z3,UJ3,03,OXDZ3,XA,Z*,UJA,OA,DXDZ* 
C0MMCN/BLK5/X5,Z5,UJ5,D5,0X0Z5 

COMMON/BLKS/XBASlf YBAS1 «  ZBAS1 ,X3AS2» YBAS2,  ZBAS 2*  XBAS3, YBAS3.ZBAS3 
COMMON/8LK7/X8ASA, YBASA,ZBAS*,XBAS5, YBAS5,  ZBAS 5 
CCMM0N/BLK8/ALFQ,BETQ,GETQ,F1,F2,  F3,FA, F5» VKONST 
COMMON/ BLK9/MULT  , IH0LD1  , IH0LD2,  IH0LD3.K0UNT  1,K0UNT2 
CGMMGN/BLK10/I0NE, I TWO* IT HR* I  FOUR* IF  IV* Nl,N2, N3,N*,N5 
COMMON/BLK11/IFIX1»IFIX2,IFIX3 

CCMM0N/BLK12/X J1 ,Y Jl ,Z Jl.DJET 1.VELJ1.XJ2, YJ2,  Z J2, 0JET2, VEL J2 
CCMMGN/RLK13/X J3,Y J3*ZJ3,0JET3,VELJ3,XJA,YJA, ZJA,  DJETA, VELJA 
CCMM0N/BLK1A/X J5  ,Y J5 ,Z J5.GJET5.VELJ5 

COMMON/BLK15/G»G2,G3»GA»G5,ST£PI,STEPI2»$TEPI3»$TEPIA»STEPI5 
C0MMQN/BLK16/V2X1, V2Y1 , V2ZI.V2X2, V2Y2.V2Z2, V2X3, V2Y3, V2Z  3 
C0MM0N/8LK17/V2XA, V2YA, V2ZA 
COMMGN/BLK18/DR3,DR*,OR5 
C 

DE  -  .0001*DJET1 
IF  (MULT-2)  21*200.300 

200  IF  (IHOLDl-U  201,202*21 

201  IF  ( TNEG)  203.203,20* 

203  CALI  XPROD  ( V2X1 ,V2Y1» V2Z1 » ALFQ, BETO.GETQ, XT1.YT1.ZT1) 

CALL  XPROO  (XT1.YT1.ZT1, ALFO, BETQ.GETQ, CFNX.CFNY, CFNZ ) 

CALL  PLANE  (CFNX .CFNY.CFNZ.XBAS1 ( IJ.YBASl (I), ZBAS 1 ( I ) .V2X2, V2Y2. 

I  V2Z2  »X  J2  »Y  J2 « Z J2, X ( NT ,  Y INT*  Z  INT ) 

IF  (YINT-YJ2-DE)  205,205,22 
20*  UUE2( I )  *  1. 

CALL  XPROO  (V2X2,V2Y2,V2Z2,ALFQ,CETG,GETQ,XT2, YT2.ZT2) 

CALL  XPROO  (XT2.YT2, ZT2, ALFO, BETQ.GETQ, CFNX.CFNY, CFNZ  ) 

CALL  PLANE  (CFNX ,CFNY, CFNZ, XBAS2( I  ),YBAS2( 1 ), ZBAS2 ( I ) ,V2X 1.W2Y1 , 

1  V2Z1,XJ1,YJ1,ZJ1,XINT,YINT,ZINT) 

IF  (YINT-YJl-OE)  205,205,22 

205  IHCL01  *  1 

202  IF  (TNEG)  206,206,207 

206  I ThC  *  I-K0UNT1 
GO  1C  208 

207  I  ONE  *  I-K0UNT1 

208  I  T 1  =*  I CNE 
I  12  *  I TkC 
N 1  =  ITU1 
N2  =  IT2+1 

CALL  COMP  (V2X1,V2Y1,V2Z1«V2X2« V2V2, V2Z2, X8AS 1(IT1),YBAS1(!T1), 

1  ZBAS1( IT1) ,XBAS2( IT2),YBAS2( IT2),ZBAS2( I T 2 ), Z 1 ( I T 1 ) , Z 2( 1 12 ) , 

2  01  (IT1),0JEI1,02(IT2),DJET2,VELJI,VELJ2,DXDZ1( IT1),UUE2( iT2), 

3  A1,A2,DR3,F1,INT) 

IF  (INT)  21,21,209 


209  IHCLOI  -  2 
N1  *  IT1 
N2  *  IT2 
PAR ( 9 )  *  DR3 
IFIX1  *  I 

CAU  BALANC  (XBAS1 1 1 T1 ) » Y8AS1 ( IT l ) , ZBAS1 1 IT1 ), XBAS2( I T2 ) , 

1  YBAS2(IT2) ,ZBAS2(IT2),UJI(IT1),UJ2(IT2),VELJ1,VELJ2,A1,A?,V2X1, 

2  V2Yi»V2Zl»V2X2»V2Y2,V2Z2»DR3,XJ3,YJ3»ZJ3*DJET3,V2X3»V.Lv3»V2Z3f 

3  VELJ3I 

PHI  »  AC0SIV2Y3) 

PSI  *  ATAN( V2Z3/V2X3) 

CALL  CFCAL  I ALFQ, BETS,  GET  <3,  PH  I,  PS I*CF3) 

CALL  ROTATE  (V2X3, V2Y3,V2Z3,CF3, VXT,WT,  VZT,0) 

UJ3I1)  *  1. 

03(1)  *  1. 

X3(l)  «  0. 

Z3( I )  *  0. 

DXUZ3I1)  *  VXT/WZT 
XBAS3(I)  >  XJ3 
Y0AS3 ( 1 )  *  YJ3 
ZBAS3 ( 1 )  a  ZJ3 
PAR ( 6 )  -  VELJ3 
0  *  ATAMVXT/VZT) 

IF  (VXT)  901,902,902 

901  F3  =  .3*CCS(0) 

GC  TO  903 

902  F3  =  .3/CCS  ID) 

903  PARt5)  *  F3 

G3  a  G*DJETl/DJET3 
STEP13  *  .2*G3 
GC  TC  21 

300  IF  (IH0LD3-1)  301,301,21 

301  IF  (TNEG)  302,302,303 
303  hRITE  (6,680) 

680  FCRHAT  ( 1H0 ,7CHNEGAT IVE  ANGLE  OF  ATTACK  FOR  THREE-JET  CONFIGURATIO 
IN  CANNOT  BE  TREATED) 

STOP 

302  IF  (IH0L01-1)  320,321,322 

320  CALL  XPROD  (V2X1,V2Y1,V2Z1,ALFQ,8ETQ,GETQ,XTI, YT1.ZT1 ) 

CALL  XPRCO  (XTl,YTl,ZTi,ALFO,EETO,GETQ,CFNX,CFNY,CFNZ) 

CALL  PLANE  (CFNX ,CFNY,CFNZ,XB AS  1 ( I ) , YBAS l (!), ZBAS l ( I ) ,V2X2, V2 Y2 , 

1  V2Z2, X J2 , Y J2, Z J2, XI  NT, Y I  NT, ZINT) 

IF  (YINT-YJ2-DE)  323,323,22 

323  IHCLOI  a  l 

321  IF  (IH0LD2-1)  324,324,325 

324  ITNC  I-K0UNT1 
III  *  I  ONE 

IT2  »  I  INC 
Ni  a  111*1 
N2  »  IT2* 1 
VKG.'vST  =  VK1 

CALL  CCFP  (V2XI,V2YI,V2Z1,V2X2,V2Y2,V2Z2,XBAS1( IT1),YBAS1( IT1), 

1  ZBASKITl)  .XBAS21 IT2 ) , YBAS2 ( IT2 ) , ZBAS2 '  IT2),Z1(ITI),Z2I  IT2), 

2  Ol(ITl) ,DJET1 ,02(IT2),0JET2.VELJI,VELJ2,DX0Z1( IT  1 ),UUE  2 ( I T2  ) . 

3  Al,A2,0R4  F 1 , 1  NT ) 

IF  UNT)  330,330,331 

331  IHCLOI  =  2 
Nl  a  l T l 
N2  a  I T 2 
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IFIX1  *  I 
VKCNST  »  VK2 

CALL  BALANC  IXBAS1 1 IT1 )  .YBASl  I IT1  UZBAS1 C  IT  l),  XBAS2C IT2J , 

1  Y8AS2 ( IT2 1 tZBAS2( IT2)»UJl(ITl),UJ2( IT2 )» VELJ1, VEL J2*  Al»  A2* V2XI, 

2  V2Yl,V2Zl,V2X2,V2Y2,V2Z2,0R4,XJ4,YJ4,ZJ4,CJET4,V2X4,V2Y4,V2Z4, 

3  VELJ4) 

340  PHI  «  ACOS I V2Y4I 

PSI  «  ATAN( V2Z4/V2X4  ) 

CALL  CFCAL  1ALFQ,BETC,GETQ,PHI,PSI,CF4) 

CALL  RGTATE  < V2X4,V2Y4,V2Z4,CF4,VXT,VYT,VZT,0) 

UJ4  ( 1 )  *  I. 

04(1)  *  I. 

X4 ( 1 )  *  0. 

Z4(|)  *  0. 

OXOZ4(l)  =  VXT/VZT 
X3AS4( l )  =  XJ4 
YBAS4( 1 i  *  YJ4 
ZBAS4( 1 )  *  ZJ4 
D  *  ATAN1 VXT/VZT  ) 

IF  (VXT)  904*405,905 

904  F4  *  .3*CCSID) 

GC  TO  906 

905  F4  =  . 3/CCS ( 0 ) 

906  CONTINUE 

G4  =  G*D JET1/D JET4 
STEPI4  *  .2*G4 

IF  (IHCLD2-IHCL01)  322,322,325 
330  IF  (IH0LD2-I)  332,333,325 

332  CALL  XPROO  ( V2X2 ,V2Y2 , V2Z2, ALFQ, BETO, GETQ, XT2, YT2 , ZT2  ) 

CALL  XPROD  (XT2,YT2,ZT2,ALFC, BET Q,GETG, CFNX,CFNY, CFNZ  ) 

CALL  PLANE  ( CFNX ,CFNY, CFNZ,XBAS2 ( IT2 ) , YBAS2( IT2 ) , ZBAS2( I T2 ! , V2X3, 

1  V2Y3,V2Z3,XJ3,YJ3,ZJ3,XINT,YINT,ZINT) 

IF  (YINT-YJ3-DE)  334,334,23 

334  IHCL02  *  1 

333  I IHR  *  I-K0UNT2 
IT3  *  I THR 

N3  a  IT341 
VKCNST  ■  VK2 

CALL  COPP  (V2X2»V2Y2,V2Z2»VZX3»V2Y3»V2Z3»XBA$2( IT2),YBAS2( IT2), 

L  ZBAS2(IT2),XBAS3(IT3),YBAS3(1T3),Z8AS3(IT3),Z2(IT2),Z3( IT3), 

2  D2(!T2),DJET2,C3UT3),DJET3,VFLJ2,VELJ3,DXDZ2(  IT2),UUE3(  IT3), 

3  A2,A3,0R4»F2»INT) 

IF  I INT )  21,21,335 

335  IHCL02  *  2 
N3  =  IT3 
N2  =  IT2 
IF1X2  =  I 
VKCNST  a  VK1 

CALL  BALANC  < XBAS2 (I T2 ) , YB AS2 (IT2 ) , ZBAS2 ( IT2 > ,  XBA S3(I T3 ) , 

1  Y8AS3( IT3) , ZBAS3 ( IT3) ,UJ2 ( I T 2 ) , U J 3 ( ST3),VELJ2,VELJ3,A2,A3,V2X2, 

2  V2Y2,V2Z2,V2X3,V2Y3,V2Z3,0R4,XJ4,YJ4,7J4,CJET4,V2X4,V2Y4,V2Z4, 

3  VELJ4) 

GC  TO  340 
IFCLR  *  I-IFIXU1 
I THR  =  I-KGUNT2 
IT4  a  IFCLR 
IT3  =  I THR 
N4  =  IT4+1 
N  3  =  I  T  3  ♦  1 
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UUE4UT4)  »  1. 

CALL  COPP  (V2X4,V2Y4,V2Z4,V2X3,V2Y3,V2Z3,XBAS4UT4),YBAS4(  IT4), 

1  ZBAS4 t IT4 ) ,  XBAS3 ( IT3 ) , YBAS3 ( IT3 ) , ZBAS3 ( IT3)»Z4(IT4),Z3(IT3)» 

2  D4(IT4)»DJ£:T4,03(  IT3 ) , 0 JET3 * VEL J4, VEL J3, DXDZ4(  IT4),UUE3t  IT3), 

3  A4,A3,0R5,F4,INTJ 
IF  UNT)  21,21*341 

341  IHCL03  «  2 
N3  a  IT3 
N4  *  IT4 
IF  1X3  a  I 

CALL  BALANC  IXBAS4  ( IT4 )  ,YBA£4  (IT4) ,  ZBAS4  UT4),  XBAS3UT3) , 

1  YBAS3 ( I T3) ,ZBAS3(IT3),UJ4(1T4),UJ3(IT3),VELJ4*VELJ3, A4,A3,V2X4, 

2  V2Y4,V2Z4,V2X3,V2Y3,V2Z3,DI15,XJ5,YJ5,ZJ5»DJET5,V2X5,V2Y5,V2Z5, 

3  VELJ5) 

350  PHI  a  AC0S1V2Y5) 

PSI  «  ATANIV2Z5/V2X5) 

CALL  CFCAL  (ALF0,BETQ,GETQ,i'HI,PSI«CF5) 

CALL  ROTATE  (V2X5,V2Y5,V2Z5„CF5,VXT,VYT,VZT,0) 

U J5 ( 1 )  a  |. 

05(1)  a  l. 

X 5  I  1 1  a  0. 

Z5( I)  *  0. 

0XUZ5II)  a  VXT/VZT 
XBAS5I 1 )  *  XJ5 
YBAS5U)  a  YJ5 
ZBAS5 ( l )  =  ZJ5 
D  *  ATANIVXT/VZTt 
IF  ( WXT )  907,908,908 

907  *  .  3*CCS  ( D ) 

GC  TC  909 

908  F5  =  • 3/CCS ( 0 ) 

909  PAR ( 5 )  =  F5 

G5  =  G^O JET  I/C JET5 
STEPI5  a  . 2*G5 
PAR (9 )  a  DR5 
PAR (6 )  «  VELJ5 
GC  TO  21 

325  1  FCliR  «  I-IFIX2+1 

ITl  «  I  ONE 
IT4  *  I  FOUR 
Nl  *  I T 1 ♦ 1 
N4  =  IT4*1 

CALL  COUP  ( V2X1 , V2YI ,V2Z1 «V2X4,V2Y4*V2Z4»  XBASl  ( ITl), Y BASK ITl), 

1  ZBASl(ITl) ,XBAS4( IT4 ) ,YBAS4( IT4 ) , ZBAS4 ( IT4 ), Z 1 1  I T 1 ) , Z4( IT4), 

2  Dl(ITl),OJETl,D<.(  IT4),DJET4,VELJI,VELJ4,DXDZ1(  IT1),UUE4(IT4>, 

3  AI,A4,0R5,Fl,INT) 

IF  (INT)  21,21,342 

342  IHCL03  =  2 
Nl  =  ITl 
N4  =  IT4 
IFIX3  a  I 

CALI  BALANC  ( XBASl ( I Tl ) , YBAS l ( IT  1 ) , Z8AS l ( l T 1 ) , XBAS41 114 ) , 

1  YBAS4< IT4)  ,ZBAS4< IT4 ) ,U J 1 ( IT  1 ) ,U J4 C I T4 ) , VEL J 1 , VEl J4, A l , A4 , V2X1 , 

2  V2Y1,V2Z1,V2X4,V2Y4,V2Z4,0R5,XJ5,YJ5,ZJ5,0JET5,V2X5,V2Y5,V?Z5, 

3  VEIJ5) 

GC  TC  350 

22  KCLNTl  =  KOLNTIU 

23  KCLM2  =  K0UNT2+1 
21  C  r  N  T I NUE 

-1 


ci  n  n 


RETURN 

END 


SUBROUTINE  INTEG  (I.TNEG) 

INTEGRATION  OF  THE  EQUATIONS  OF  MOTION  FOR  THE  JET  PATH 


C 


C 


C 

C 


EXTERNAL  OERIV 

DIMENSION  COEFR ( 15.25 ) , COEFI (15*25) 

DIMENSION  «TATN(25),RAOIUS(25).SLP30(25) 

DIMENSION  XI ( IOC ) «  71 ( 100 ) »UJl ( 100 )  .01  ( 100 ),DXDZ 1 ( 100) 
DIMENSION  X2(10Q),Z2«100),UJ2CIQO>,D2UOO),DXDZ2( 100) 
DIMENSION  X3(100),Z3( 100 )  ,UJ3 1 100 ),C3 ( 100),DXDZ3( 100) 
DIMENSION  X4U00),  Z4 ( 100 ) ,U J4 ( 100 ) , 04 ( 100 ) , DX0Z4 <  ICO) 
DIMENSION  X5(100)fZ5( 100 ) tUJ5 ( 100) *05 ( 10C)*DXDZ5I 100) 
DIMENSION  XBAS1 ( 100) ,Y3AS1( 100 ). ZBAS1 1 100 ) 

DIMENSION  XBAS2(100),YBAS2<100),ZBAS2(100) 

DIMENSION  X8AS3U00)  ,YBAS3 1 100 ).ZBAS3(  100 ) 

DIMENSION  XBAS4U06) .YBAS4U00 ) ,  ZBAS4 1 100 ) 

DIMENSION  XBAS5I100) .YBAS5 1 100 ), ZBAS5I 100 ) 

DIMENSION  CF1(3,3) ,CF2 < 3 , 3 ) ,CF3 ( 3, 3 ) ,CF4 1 3, 3) , CF5 < 3, 3 ) 
DIMENSION  UUE1 1 100 ) ,UUE2 1 100 ) .UUE3 < 100 ),UUE4t 100 ) ,UUE 5(  ICO) 
DIMENSION  PAR ( 10 ) 

DIMENSION  SDXDZl<100),S0XDZ2f 1005,SOXDZ3I100),SDXDZ4( 100). 

1  S0XDZ5 l  ICO  5 


C0MM0N/BLK1/ST  ATN. RADIUS .SLP3C. COEFR. COE FI 

C0MMGN/BLK2/CF1 «CF2,CF3,CF4,CF5,UUE1,UUE2,UUE3,UUE4,UUE5,PAR 
CCMMGN/BLK3/Xl.Zl«UJ1.01.DXDZltX2.Z2.UJ2.D2.DXDZ2 
CCMM0N/BLK4/X3 , Z3.UJ3 ,03 , DXC73  »  X4, Z4.UJ4, D4, DXDZ4 
C0MMCN/BLK5/X5.Z5.UJ5.D5.DXDZ5 

C0MM0N/BLK6/XBAS1 . YB AS1 . ZBAS 1 .XBAS2. YBAS2. ZBAS 2.  XBAS3.YBAS3.ZBAS3 
C0NM0N/8LK7/X8AS4.Y6AS4, Z8AS4.XBAS5.YBAS5, ZBAS5 
CCMMCN/BLX8/ALFQ.BETC.GETQ.FI ,F2, F3, F4.F5.VK0NST 
CCMMCN/BLK9/MULT . I  HOLD l . IH0LD2. IHOLD3.KOUNT1.KOUNT2 
COM MON/ 8 LK 10/ 1 ONE. ITHO. ITHR, I  FOUR.  IFIV,N1,N2,N3,N4,N5 
CCMM0N/8LK1 1/IFIX1.IFIX2.  IF IX 3 

CCMMCN/BIK12/XJ1,YJ1,ZJ1»CJET1,VELJ),XJ2,YJ2,ZJ2,DJET2,VELJ2 
C0MM0N/BLK1 3/X  J3 .YJ3.ZJ3. DJET  3. VEL J  3. XJ4.YJ4.ZJ4, DJET  4, VEL J4 
C0MM0N/BLX14/X J5 .YJ5.ZJ5. DJET5.VELJ5 

C0MMCN/BLK15/G.G2,G3,G4,G5VSTEMI,STEPI2,STEPI3,STEPI4,STEPI5 
COMMON/ BLK16/V2X1 » V2Y1 , V2Z1 , V2X2, V2Y2, V2Z2, V2X3. V2Y j, V2Z 3 
COMMGN/BLKi 7/V2X4, V2Y4 » V2  Z4 
CCMMCN/BLK1 8/DR 3 .DR4.0R5 

C  MM0N/8LK19/S0XDZ1 . S0X0Z2.SDXDZ3. SDX0Z4, SDXDZ 5 
DIMENSION  FIN(4)»F0UT (4) 


IF 

) MULT-2 ) 

53 

.51 

,52 

51 

IF 

< IHOLOl- 

2) 

53, 

30, 

30 

52 

IF 

(IH0LD3- 

2) 

53, 

40, 

40 

53 

IF 

(MULT-2) 

24 

.25 

.26 

25 

IF 

(TNEG)  24,24,27 

27 

IF 

(IHOLOl) 

28 

,28 

,24 

26 

IF 

( IHOLOl- 

1) 

24, 

24, 

31 

24 

PAR 

(6)  =  VE 

LJ1 

PAR 

(5)  =  FI 

^2 


PAR'9)  *  1. 

UUEKIONE)  *  1. 

ZliICNE+l)  *  Zl ( IONE  )+G 
FIN'l)  =  (JJl'IONEI 
FIN'2)  »  Di'IONE) 

FIND)  *  XI l IONE) 

FIfc'4)  a  DXOZ1 ( I  ONE) 

CALL  ADAMS  14,  Zl  'IGNE  ),Zl(IONE+l>,  STEPI,  G,  999,  1.0E-04,  1.0E-05, 

1  0,FIN»F0UT  »PAR,0ERIV) 

UJl'IONE+l)  >  FCUT'D 
DKICNE+1)  *  FOUT (2) 

XKIONE+1)  =  FOUT '  3 ) 

DXOZ1  ( ICNE+ 1 )  *  FCUT'D 
SDXDZI ( I ONE  +  l )  a  PAR ( 10 ) 

CALL  OUT PI '  XI ( I ONE* I ) ,  Zl  ( l ONE+l ) *  DXDZl ( IONE+D , CF l,DJETl , XJI , YJl, 
1  ZJ1,XBAS1(  IONE+1)  ,YBASI(  IONE+1 ),  ZBASU  IONE  +  l )  ,V2X1,V2Y1  ,V2Z  I ) 

IF  (MULT-2)  50,41,42 

41  IF  (IHOLDl)  50,50,28 

42  IF  ( IH0LD2-1 )  50,28,46 

28  PAR  (6)  =  VFl.  J2+UUE2  ( ITWG) 

PAR  1 5)  =  F2 
PAR ( 9 )  =  l. 

Z2(  ITWO+1)  a  Z2 ( ITWO )+62 
FIN'D  =  UJ2  ( I  TVIC) 

F I N ( 2 )  »  D2 ( ITWO ) 

FIM3)  a  X2(ITWC) 

F I N (4 )  *  DX0Z2 ( ITWO) 

CALL  A0AM$(4,Z2(ITW0),Z2'ITW0+D,STEPI2,G2,999,  l.OE-04, 
l  1 . CE-05 ,0»F IN,FCUT ,PAR,DERIV) 

UJ2  ( ITWC+l)  *  FCUT'D 
D2  '  I  TWO+l )  =  F OUT ' 2 ) 

X2UTW0+D  =  FOUT '  3 ) 

0X0Z2 ( I  TWG+ I )  =  FOUT (4 ) 

SDX0Z2 ' I ThO+1 )  =  PAR'IO) 

CALL  OUTPT  '  X2  ( I TWO+D  ,  Z2 '  ITWO+1 ) ,  DXDZ2 '  ITWO+1 ),  CF2,  DJET2,  XJ2, YJ2 
l  ZJ2.XBAS2'  ITWO+1) ,YBAS2 I  ITWO+1) , ZBAS2'  ITWO+D.V2X2,  V2Y2,  V2Z2) 

IF  (MULT-2)  50,50,31 

31  IF  ( IHCLD2-1 )  50,32,46 

32  PAR  ( 6 )  *  VELJ3*UUE3"THR) 

PAR'S)  =  F3 

PAR'9)  =  1. 

GO  TO  35 

30  I THR  *  I  —  IF  1X1  +  1 
HUE 3 ( ITHR)  a  l. 

35  Z3'ITHR+D  »  Z3(ITHR)+G3 
FIN'D  a  UJ3  '  I  THR ) 

F  I N  ' 2 )  =  D3 ( ITHR  ) 

FIND)  =  X3UTHR) 

F I N ( 4 )  =  DX0Z3 ( I THR ) 

CALL  A0AMM4.Z3'  ITHR) ,  Z3(  ITHR  ♦  I) ,  STEP  1 3,  G  3, 999,  1.0E-04, 

1  1. CE-05, 0, FIN, FCUT, PAR, DERIV ) 

UJ3IITHR+1)  =  FOUT ( l ) 

03 ( I THR+ 1 )  a  FOUT I  2 ) 

X 3 (  I  THR* 1 )  =  FOUT ' 3 ) 

DXCZ3(ITHK+1)  =  FOUT (4  ) 

SDXCZ3I  I  THR+l  )  =  PAP.(LO) 

CALL  CO  TP!  (X3( ITHR+1 ) ,Z3( ITHR+1 ),CXDZ3( 1THF  +  1 ),CF3,DJET3*XJ3,VJ3 
1  Z  J3,XBASi(  I  IMP  -  1 )  ,YBAS3  (  IT  MR  ♦  I)  t.  ZBAS3)  ITHR  +  1 )  ,V2X3,  Y2Y  3,  V2Z  3) 

IF  (MOLT-2)  5C,50,<7 


o  o  o 


47  IF  IIH0L01-1)  50.50,46 
46  PAR (6)  «  VELJ4*UUE4( IFOUR) 

PAR {5 1  *  F4 
PAR (9)  *  DR4 

Z4UFGUR+1)  *  Z4 ( I  FOUR) +G4 
FlN(l)  *  UJ4(  IFOUR i 
FIN «2 »  *  041 IFOUR) 

F I N  ( 3 )  -  X4I IFOUR) 

FIN(4)  *  0X0Z4 ( I  FOUR) 

CALL  AO AMS (4, 24 ( IFOUR) » Z4 1 IFOUR+l ) . STEP  1 4, G4.999, 1.0E-04, 

1  I. 0E-05 ,0, FIN, F CUT, PAR, DERI V  ) 

UJ4 ( IFOUR+l )  *  FOUT { I ) 

04 (IFOUR+1)  *  FOUT (2) 

X4 ( IFOUR+l )  =  FOUT (3) 

DX0Z4( IFOUR+l )  =  FOUT (4 ) 

SDXDZ4I IFOUR+l)  =  PAR(IO) 

CALL  OUTPT  (X4 ( I FOUR  +  1 ) , Z4( IFOUR+l ), 0X0Z4 ( IFOUR  +  l  )»CF4»D JET4,XJ4, 

1  Y J4,Z J4.XBAS4 ( 1 FOUR+1 ) , YBAS4 ( IFOUR+l ), ZB AS4( IFOUR+l I ,V2X4,V2Y4, 

2  V2Z4) 

GO  TO  50 

40  IF  I V  *  I~IF 1X3+1 
UUE5UFIV)  *  1. 

Z5UF1V+1)  *  Z5  ( IF  I V )  +G5 
FIN(l)  *  UJ5« IFIV) 

F ! N ( 2 )  *  D5IIFIV) 

F I N ( 3 )  =  X5IIFIV) 

F I N (4 )  *  0XDZ5 (IFIV) 

CALL  A0AMS(4,Z5(IFIV),Z5(IFIV+l),STEPI5,G5,999, l.CE-04, 
l  1.0E-05.0, FIN, FOUT, PAR, OERIV) 

U J5 (IFIV+li  *  FOUT ( 1 ) 

D5( IFIV+l)  *  FOUT (2 ) 

X5  ( IF  I  V+l  )  =■  FOUT  (  3 ) 

DXDZ5 ( IFIV+l )  *  FOUT (4 ) 

SDXDZ5 ( IFIV+l )  *  PAR ( 10 ) 

CALL  OUTPT  (X5( I  FI V+l) ,Z5( IFIV+l ),DXDZ5! IFIV+l ),CF5,OJET5, XJ5.YJ5, 
1  ZJ5,XBAS5( IFIV+l) ,¥BAS5 ( IFIV+l ), ZBAS5 ( IFIV+l ) , OUMMY, DUMMY, DUMMY) 
50  CONTINUE 
RETURN 
ENO 


SUBROUTINE  COMP ( VXl , VYl  7Z1 ,VX2, VY2.VZ2, X 1, Yl, Z l , X2, Y2, Z 2 *Z  IL , Z 2L , 
l  01 ,0 J1 ,02,DJ2,V 1, V2, SL 1«UUEFF,  A 1, A2, DRAT , F, I  NO) 

COMPUTES  U/UEFFECTIVE  ANO  TESTS  FOR  INTERSECTION  OF  CENTERLINES 

COMMON/ BL KC / Al FQ,BE70,GETQ»Fl*F2»F  3, F4, F5, VKONST 
C0MMCN/BLK20/DI ARAT,OREF 
C 

IND  *  0 
PI  =  3-1  ,16 

CALL  XPROO  |VX1,YYI,VZI,ALFQ,BET0,GETQ,CFNX,CFNY,CFNZ) 

CALL  XPRCO  (VX2,VY2,VZ2,ALFQ,BET0,GETQ,XT2,YT2,ZT2) 

CALL  PLANc  ICFNX,CFNY,CFNZ,XI ,> I, 7 1,XT2,YT2?ZT2,X2,Y2,Z2,XI ,YI,ZI ) 
01  ST  =  SCST( (X;-X2)+*2+(YI-Y?)*  +  24(ZI-Z2)**2) 

c 

C  COMPUTE  l/UEFFFCTIVE 

r 

R  =  D1+0JI+.5-CI ST 

'  ! 


non  n  no 


FACT  *  (1.0+R/(D2*DJ2*.5)  )*.5 
IF  (FACT-l. )  10,10,11 
11  UUEFF  *  VKONST 
GO  TO  15 

10  IF  (FACT)  13,13,12 
13  UUEFF  »  1. 

GO  TO  15 

'.2  UEFU  *  l.+( 1./VK0NST-1.  )*FACT 
UUEFF  «  l./UEFU 
15  CONTINUE 

TEST  FOR  INTERSECTION  OF  CENTERLINES 

COST  *  l./SQRT(l.*SLl*SLl) 

SUMO  *  0J1*D1*.5 
IF  (OIST-SUHD)  22,99,99 

22  DISTW  *  SORT ( (Xl-XI )**2* ( Yl-YI )**2+(Zl-ZI  1**2) 
ZOVM  *  Z1L/V1 
IF  IZOVH-F)  24,24,25 

24  FACfl  *  l.-.75*Z0VM/F 
GO  TO  26 

25  FACT1  *  .25 

26  ZOVM  *  Z2L/(V2*UUEFF) 

IF  (ZOVM-F)  27,27,28 

27  FACT2  «  l.-.75*Z0VM/F 
GO  TO  29 

28  FACT2  *  .25 

29  SUMO  «  DJl*Dl*FACTl*C0ST*.5 
IF  (01 STN-SUMD)  30,30,40 

30  IND  *  1 
GO  TO  45 

40  IF  ( X2-X1 )  30,30,99 
45  Al  *  P!*FACTi*Dl*Dl*0Jl*DJl*.25 
A2  =  P ! *F ACT2 *02*02 *DJ2*DJ2*. 25 
DRAT  ■*  DIARAT 
99  CONTINUE 
RETURN 
END 


SUBROUTINE  8ALANC  (X 1 ,Y1 , Z1,X2, Y2, Z2, UJ l, UJ2, V 1, V2, A 1 » A2, VX1 , VYi , 

1  VZ1»VX2»VY2»VZ2» FACT 1,X3, Y3,Z3,0J3,VX3,VY3,VZ3, 

2  VELJ3) 

ESTABLISHES  INITIAL  CONDITIONS  FOR  NEW  JET  FROM  MOMENTUM  BALANCE 

PI  =  3.1416 
X3  *  (Xl+X2>*.5 
Y3  =  ( YI+Y2 ) *. 5 
Z3  =  ( Z 1+Z2 ) *. 5 
XM1  *  UJ1*V1*A1 
XM2  =  UJ2*V2*A2 
DEN  =  XM1+XM2 

UJX  =  ( XM1*U Jl *V 1*VX l*XM2*U J2*V2*VX2 ) /DEN 
UJY  =  (XM1*UJ1*V)*VY1+XM2*UJ?*Y2*VY2)/0EN 
UJZ  =  (XM1*UJ1*V1*VZI+XM2*UJ2*V2*VZ2)/DEN 
VFLJ3  *  SORT  (UJX*UjX+UJY*UJY*U JZ*UJZ ) 

VX3  =  OJX/JEi.JJ 
VY3  a  0JYZ\.ELJ3 


b  5 


o  o  o  o 


VZ3  »  UJZ/VEL J3 
A3  *  DEN/VELJ3 

DJ3  »  SORT  I4.*A3/IPI*FACTI)) 

RETURN 

END 


SUBROUTINE  OUTPT  (XL,ZL,OXDZ,CF,DJ,XJ,YJ,ZJ,XB,YB,ZB,VX,VY,VZ) 
C 

C  TRANSFORMS  LOCAL  COORDINATES  TO  PROGRAM  COORDINATES  (FIXED) 

C 

DIMENSION  CFO, 3) 

C 

PHI  *  ATAN(DXOZ) 

VXT  *  SIN(PHI) 

VYT  *  0. 

VZT  »  COS(PHI) 

CALL  ROTATE  I VX, VY ,VZ ,CF,VXT, VYT, VZT, 1 ) 

CALL  ROTATE  (FX,FY,FZ,CF,XL,0.,ZL, 1) 

XB  *  FX»DJ*XJ 
YB  *  FY*D J+YJ 
ZB  »  FZ*D J+Z J 
RETURN 
END 


SUBROUTINE  VELOC  (NI ,N2, Z#X ,DXDZ,UJ, D,UUE, XJ, YJ, Z J, DJET.CF, PAR, 
I  XG,Y0,Z0*UIF,VIF,MIF,D2XDZ2 ) 

EVALUATES  INDUCED  VELOCITIES  AT  ONE  CONTROL  POINT  IXO.YO.ZO  IN 
FIXED  COORDINATE  SYSTEM)  FOR  A  GIVEN  JET 

C0MM0N/BLK20/0I ARAT * DREF 

DIMENSION  Z(I).X(l)vOXDZ(l)*UJ(l)f  0(l),UUEU),PARi  I) 

DIMENSION  CFO, 3) 

DIMENSION  D2X0Z2 (1 ) 

E2  *  PAR (2) 

E3  *  PARO) 

F  »  PARO) 

VEL J*PARI6) 

PI  =  PAR (7) 

Cl  =  PARIS) 

DR  *  PARI 9) 

N  *  N2-NUI 

IF  (N/2-(N+l)/2)  1,2,2 

1  M  *  IN-D/2 
GO  TO  3 

2  M  *  (N-2)/2 

3  XPT  *  I XO-X  J) /D Jk  T 
YPT  *  I YO-Y  J) /CJET 
ZPT  -  I ZO-Z J) /DJET 

CALL  ROTATE  I XPT ,YPT , ZPT , CF, A, B, C, 0 ) 

UI  =  0. 

VI  *  0. 

VI  *  0, 

MI  =  M*  1 
DO  21  K*Nl , Ml 


ftb 


El  *  PARI  1) 

IF  CK-M)  11,11,10 

10  IF  (N/2-(N*l)/2>  22,12,12 
12  I  *  2*K-1 

zi ncr  *  ni+n-zin 

60  TO  14 

11  1  *  2*K 

2 1  NCR  »  Z  CI+I 1-211-1 ) 

14  COST  «  l./SQRT(l.+DXOZ(n*OXL»mi 

SINT  *  SIGN! I, fOXOZI I ) l*SQRT I l.-CCST*COST  1 
SIE  «  -UZ(I)-CJ*CO$T+(xm-A)*SlNT> 

ETA  *  6 

ZETA«  mi)-C1*SINMXUI-AI*C  1ST 
01  *  .5*0111 

00DB1  »  SIE*SIE*£TA*ETA+2ETA*Z£TA 
00032  *  SORT  I DOUBl ) 

UBLOCK  «  .5*D1*D1*ZINCR*C0$T*!1.-3.*ZETA*ZETA/00UBI)/ID0UB1*D0UB2) 
1  -SINT*1.5*SIE*ZET  A*Dl*Dl*ZINCR/( D0UBI*D0UB1*D0UB2 ) 

VBLCCK  *  -1.5*ZETA*ETA*01*Di*ZINCR/(DOU61*DOUBl*DOUB2) 

UBLOCK  *  5*01 *01 *Z I NCR* SI NT  * ( l.-3.*ZETA*  ZETA/DOOBl ) /( DCUB 1* 

I  D0UB2I -C0ST*1.5*S IE*ZET  A* D 1*0 1*2 INCR/ 1 DOUBl*OOoBl*DOUB2 ) 

VELJE  «  VEL J*UUE( I ) 

CURV  *  02X022(11/1  1 l.*OXOZ iII*OXOZ 1 1 )>** 1. 5) 

CURV  *  3*  *CURV*DREF/DJEY 

El  *  El-CURV/COST 

E  ■  E2/(1.+E3*C0$T/(VELJE*UJ( III) 

IF  (VEI.JE*LIJm-S!NT)  51,52,52 

51  E  *  0. 

52  ZSO  «  I l.-DRl *VELJE*F/.75 
?.P  *  Z(I)*ZSO 

IF  (ZP-VELJE*F)  47.60,60 
47  IF  (ZP-1G.1  40,60,60 
40  IF  (ZP-.6*VELJE*FJ  42,43,43 

42  E  *  E*. 1/.32 
GO  TO  60 

43  IF  (ZP-.8*VELJE*F)  44,45,45 

44  E  *  E*. 12/. 32 
CO  TO  60 

45  E  *  E*.2l/« 32 
60  ZOVN  a  ZP/VELJE 

IF  (ZOVM-F)  31,32,32 

31  VARB  *  ( 1 •-«  375*Z0VM/F  ) 

VAR  *  SORT  1 1 1  .♦  (1  .-.75*Z0V'M/  F  J**2  )/2. ) 

HT3  =  .25*ZINCR*(E1+E*PI*VAR*(VELJE*UJ1 I l-SINT //COST) 

GO  Tu  33 

32  VARB  *  .625 

HT3  *  .25*2 1 NCR* (El  +  E*< VEL JE*UJ (I  I-SINT )*C l /CO ST ) 

33  UBLOCK  »  JBLOCK*VARB 
VBLCCK  a  V8LCCK*VAR8 
UBLOCK  *  U9l0r.K*VAR8 

zi  =  ic-zm)*(c-z(nu(A-x(i»)*iA-xmi 

22  =  SQv';T <  IB-0l»*(B-0l)»Zl) 

23  a  SQRTI I B+01 )*f  B+Dl )+Zl ) 

USINK  *  -HT3* CXI  II— A>*< ( B-Dl I/(Z1*Z2)-(3*C lt/(Zl*Z3I)/PI 
VSINK  a  -HT3*( 1./Z2-1./Z3I/PI 

USINK  a  -HT3*(Z(I)-C)*((B-011/(Zl*Z2)~(BvDli/(Zl*Z3l</PI 
IF  (UUE(I)-l.)  6,5,6 
6  FACT  a  l./UUElII 

UBLOCK  *  U8L0CK*FACT 
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o  u  u 


VBLCCK  *  V8 LOCK* FACT 
MBLGCK  *  U8L0CK*FACT 
USINK  *  USINK*FACT 
VSINK  «  VSINK*FACT 
USIMK  *  WSINMr  ACT 
5  1)1  *  UI +USJ NK+UBLOCK 

VI  «  VI«VSINK*VBLOCK 

21  WI  >  MI +USI NK*MBLOCK 

22  CALL  ROTATE  <UIF,VIFvWlF,CF,UI,Vl,MI. il 
691  FORMAT  (6F12.5) 

RETURN 

END 


SUBROUTINE  DERIV  (Z»FN»FPR»PAR) 

COMPUTES  DERIVATIVES  FOR  ADAMS  PREOICTOR/CORRECTOR  METHOD 

DIMENSION  FN(l)*FPR(l),PARtl) 

El  *  PAR ( l I 
E2  *  PARI2) 

E3  *  PARI3) 

F  *  PARIS) 

VELJ*PAR(6) 

PI  *  PAR  1 7) 

Cl  *  PARI8) 

DR  *  PARI9) 

UJ  *  FN(l) 

D  *  FNI2) 

DXDZ*FN(4 ) 

COST  *  l./SQRT(l.*OXDZ*OXOZ) 

SINT  »  SIGN! 1»  »DXbZ)*SQRT 1 1.- COST ♦COST ) 

E  «  E2/Cl.*E3*C0ST/CVELJ*UJn 
IF  <VELJ*UJ-SINT)  11,12.12 

11  E  -  0. 

12  ZSO  *  (l.-DR)AVELJ*F/.75 
ZP  *  Z*Z$0 

IF  { i?i*-VtL J*F )  47,60,60 

47  IF  (ZP-10.)  40,60,60 
40  IF  (ZP-.6*VELJ*F)  42,43,4? 

42  E  *  E*.l/.32 
GO  TO  60 

43  IF  (ZP-.8*VELJ«F)  44,45,45 

44  E  «  E*.12/.32 
GC  TO  60 

45  E  *  E*.21/.32 
60  ZCVM  »  ZP/VELJ 

IF  IZOVM-F)  22,23,23 

22  VAR  *  SQRT!ll.*(l.-.75f^0¥M/F>**2)/2.) 

XT  *  l.-.75*Z0VM/F 
XT  *  l./XT 

CO  *  l-XT*XT*6.6*XT*.4)/6. 

VAR  1  a  El*COST»E*(VELJ*UJ-$INT)*PI*VAR 
VAR2  VEL J*VEL J*COST 

VAR 3  *  „25*PI*(1.-.7'>*ZOV*/F)*UJ*0 
DUJ  *  (VARl*<;iNWAR2-VARl*UJ/(VFlj*C0ST)  J/VAR3 
DO  »  *VAR1*D/ (VELJ*COST )+3.*PI*D*D*UJ/ ( 16.*F«VFL J )-VAR 3*D*D0J/ 
1  UJ) ( 12. *VAR3 ) 
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VAR4  »  IEi*.5*C0l*C0ST*E*(VEiLJ*UJ-SINn*PI*VAR 
DOXOZ*  VAR4/(VAR2*C0ST*VAR3*UJ) 

G(j  TO  15 

23  VARl  *  E1*CCST+E*«VELJ*UJ-STNT)*C1 
CD  *  1.8 

OUJ  *  16.*VAR1*(S!NT/IVEL J*VELJ*COST )-UJ ' ?VEL J*COSTI )/(PI*D*llJ) 
OD  *  8.*( VARl/ (VEL J*COST )-P**D*0UJ/16.  )/ (F!*UJ ) 

VAR4  *  (Ei».5*CD)*COST*E*(VEL J*UJ-SINT )*Ci 
DDXDZ=  16.*VAR4/ (PI*VEL J*VELJ*D*UJ4UJ*C0ST*C0$T ) 

15  CONTINUE 

PAR (10)  *  DOXDZ 
FPR(l)  *  DU J 
FPR (21  *  DO 
FPR(3)  »  DXDZ 
FPR (A)  =  ODXOZ 
RETURN 
END 


SUBROUTINE  TRWING  (NTHT ,NSMAX ,NCOEF, IRECT, XO, VO, ZO.NK > 

ESTABLISHES  CONTROL  POINTS  IN  THE  BOOV  FIXED  COORDINATES  FOR  WING 
♦A*  IS  THE  REAL  PART  OF  EACH  COMPLEX  COEFFICIENT 
♦B*  IS  THE  IMAGINARY  PART  OF  EACH  COMPLEX  COEFFICIENT 
MAPPING  AROUND  3600EG  IS  SPECIFIED 

IRECT*0, RECTANGULAR  WING,  IRECT-l.NON-RECT ANGULAR  MING 

DIMENSION  COEFR( 15 ,25 1 » COEFI (15,25) 

DIMENSION  Y (25 )» RADIUS (25 1, DROZ (25 1 

C0MM0N/BLK1/Y, RADIUS, DRDZ.COEFR, COEFI 

DIMENSION  XO(l),YO(l),ZO(l) 

DIMENSION  A(15) ,8( 15 ) 

XN  *  NTHT 
DTHT  *  6. 2832/XN 
DC  30  I *1 ,NSMAX 

READ  (5,503)  Y ( I ) , RAD IUS (I) ,DRDZ ( I) 

IF  (I~l)  2,2,3 

3  IF  (IRECT)  4,4,2 

2  READ  (5,502)  (AIK) ,B(K) ,K=1,NC0EF) 

GC  10  10 

4  DO  8  J*1,NTHT 

JG  =  l!-l)*N7HT"J 
NS1  *  JG-NTHT 
XO  I  JG )  =  XO  ( NS1  ) 

YO(JG)  *=  Y  ( I ) 

8  ZO(JC)  *  zo(ns:d 
Gr  TO  25 

10  RW  --  RADIUS(I) 

DC  20  J*  1 ,  NTH'. 

XJl  *  ,1-1 

THETA  »  XJ1*D1  IT 

TERM!  *  RW*COS  ( THET A ) •*■  A 5 ?  ) 

TFRM2  *  RW*SIMTHETA)+B<2* 

RkJ  a  1. 

DC  15  K  =3  »NCQf  F 
XK  =  K-2 


8  f> 


n  o  n  o  o  n  n 


COS  fH  *  COS(XK*THETA) 

SINTH  *  SIN(XK*THETA) 

RWJ  »  RNJ/RN 

TERRI  *  TERRI* ( A (X )*COSTH*B(X )*SINTH )*RW J 
15  TERR2  -  TERH2+(-A(K)*SIftrH*B(K)*COSTH)*RWJ 
JG  *  (1— l)*NTHT* J 
XO(X)  *  TERRI 
YOI  X)  *  Yin 
20  ZOIX)  *  TERR2 

25  DO  26  X»l*NCOEF 
COEFRIKt I )  *  AIK) 

26  COEFI (K,I )  »  BIX) 

30  CONTINUE 

NX  *  NTHT*NSHAX 
RETURN 

502  FORRAT  I6E12.5) 

503  FORRAT I 6F 12*0) 

END 


SUBROUTINE  TRBOOY  (NTHT,NSNAX,NCOEF»NSYH,XO,YO,ZG,NK i 

ESTABLISHES  CONTROL  POINTS  IN  BODY-FIXED  COORDINATES  FDR  BODY 
•A*  IS  THE  REAL  PART  OF  EACH  CONPLEX  COEFFICIENT 
BODY  RUST  BE  SYRRETRIC 

HAPPING  DONE  FOR  1000EG  IF  FLOW  IS  SYRNFTRIC.FOR  360DEG  IF  FLOW 
IS  NOf  SYRRETRIC 

DIRENS1 ON  COEFRI 15.25) .COEFI 1 15,25 ) 

DIRENS10N  X 125 ) , RADI  US  125 ) , DRDXI 25  ) 

C 

CCRR0N/BLK1/X .RADIUS, OROX.COEFR, COEFI 
C 

DIRENSION  X0m,V0ll),Z0(l) 

OIHENSI ON  A 1 15 ) 

C 

XN  *  NTHT 
XSYR  «  NSYR*1 
DTHT  »  XSYM*3»  J.416/XN 
IF  INSYR)  1,1,2 
l  NTHT  =  NTHT*1 
?  CONTINUE 

DG  30  I*1'NSHAX 

READ  (5,503)  X (I) , RADIUS (I),ORDX 1 1 ) 

READ  (5,502)  I A(X) ,K«l»NC0EF) 

RB  >  RADIUS ( I ) 

DO  20  J*l,NTHT 
XJ1  »  J-l 
THETA  »  X J1 *DTHT 
TERRI  •  RB*SIN(THETA) 

TERR2  — R6*COS(THETA)-A(2> 

RB  J  *  1. 

DC  15  K*3 ,NC0EF 
XX  -  X-2 

COSTH  »  COS(XX*THETA ) 

SINTH  *  SI N( XX*THET A ) 
kPJ  *  RBJ/RB 

TERRI  *  TERR1-A(X)*SINTH*RBJ 
15  TFRR2  *  TERR2 -  A  (X)  *CGSTH*<*BJ 


90 


o  o  o  a  r* 


JG  *  I I—l )*NTHT* J 
X0IJG1  *  XII) 
YCIJG)  *  TERM! 

20  ZOCJG)  *  TERM 
DC  22  K*1,NC0EF 
22  COEFRIK.I )  *  A(K) 
BO  CONTINUE 

NK  *  NTHT*NSMAX 
RETURN 

502  FORMAT  (6E12.5) 

503  FORMAT  1 6F 12*0) 

END 


SUBROUTINE  ADAFT  (U,V,U,NTHT,NSMAX,NCOEF, IGEOM » 

MUNCHES  OUT  DATA  TO  SERVE  AS  INFUT  TO  THE  TRANSFORMAT  ION  METHOO 
DATA  IN  SETS  BY  X  OR  Y  STATIONS.  OATA  CONSISTS  OF  STATION. 
RADIUS  OF  HARPING  CIRCLE.  SLOPE.  COEFFICIENTS  AND  VELOCITIES 

DIMENSION  COEFTI 15,25) .COEFI I 15.251 
DIMENSION  STATM25 ) .RADIUS (25 ),SLP 30(25) 

C0MM0N/BLK1/STATN, RADIUS. SLP3D.C0EFR.C0EFI 

DIMENSION  UllliVIll.Mli! 

DIMENSION  WRTVm 

OATA  WRTVZLHU.IHV.1HN/ 

DO  5C  1*1 .NSMAX 

WRITE  (7,701)  STATN( I ) .RADIUS ( I )«SLP3D( I ),  I 
IF  (IGEOM-1)  3.3.2 
2  NP  -  NCOEF/6 

I  NO  *  NPA6-NC0EF 
JPS  =  1 
DO  A  J*l,NP 
JPF  -  JPS*5 

WRITE  (7,702)  (CGEFRIK.I ) ,K*JPS, JPF),  I, J 
A  JPS  *  JPS*6 

IF  (IND)  5,10,10 
5  NPl  *  NP+1 
JPF  *  NCOEF 
NOP  *  JPF-JPS+1 
GO  TO  !61,62,63,6A,65),N0P 


61 

WRI 

TE 

(7, 

71 

1) 

(CCEFRIK, 

,K* JPS, 

JPF),  I 

,NP1 

GO 

TO 

70 

62 

WRI 

TE 

(  7  r 

71 

2) 

(CCEFRIK, 

,K* JPS, 

JPF),  I 

,NPl 

GO 

TO 

70 

63 

WRI 

TE 

(7, 

71 

3) 

ICCEFRiK, 

v  K*  J PS , 

JPF),  I 

?  NP  l 

GO 

TO 

70 

6A 

WRI 

TE 

(7, 

71 

*,) 

(COEFRU, 

»K= JPS, 

JPF),  I 

,NP1 

GO 

TO 

70 

65 

WRI 

TE 

(7, 

71 

5) 

(COEFRIK, 

, K* JPS  » 

JPF),  I 

,  NP  1 

70 

CON 

TINUE 

GO 

TC 

10 

3  NP  =  NCCEF/3 

INC  *  NP* 3-NCOEF 


'll 


JPS  *  l 
00  6  J-l.NP 
JPF  «  JPS*2 

WRITE  17*702)  <COt:FR(K,?)«COEFI(K,I),K«JPS,JPF),I,J 

6  JPS  »  JPS*3 

IF  (INO)  7*10*10 

7  NP1  «  NP*1 
JPF  «  NCOEF 
NOP  «  JPF- JPS* 1 
GO  ID  <71, 72), NOP 

71  WRIIE  (7*712)  (COEFRIK, I ) * COE FI (k,  I ),K*JPS* JPF ) *  I *NPl 
GO  TO  80 

72  WRITE  (7*714)  (CCEFR(K, I ) ,COEFl |R* I  ),K»JP  *JPF),I.NP1 
80  CONTINUE 

10  KOUNT  «  1 
NP  *  NTH  */6 

I MO  *  NPP6-NTHT 

11  JPS  «  ( 1-1) PNTHT*1 
00  12  J*1,NP 

JPF  *  JPS*5 


WRITE  (7*703)  (U(L) ,L»JPS, JPF),WRTV(KOUNT), I, J 
12  JPS  *  JPS+6 

IF  UNO)  14,15,15 
14  NP1  *  NP*l 
JPF  «  I*NTHT 
NOP  «  JPF-JPS*! 

GO  TO  (81, 82,83, 84, 853, NOP 

) ,WRTV (KOUNT ) « I,NP1 
),WRTVIK0UNT).I,NP1 
) ,WRTV (KOUNT ) * I»NP 1 
) »HRTV (KOUNT ) » I,NP1 
),WRTV( KOUNT ),  I,NP1 


81 

WRITE 

(7,721)  (U(L) »L*JPS» 

GO  TO 

90 

82 

WRITE 

(7,722)  (U(L),L*JPS, 

GO  TO 

90 

83 

WRITE 

(7,723)  (U(LI ,L*JPS, 

GO  TO 

90 

84 

WRITE 

(7*724)  (U(L),L*JPS, 

GO  TO 

90 

05 

WRITE 

(7,725)  (UID.Lo.nS, 

90 

CONTINUE 

15 

IF  (FOUNT -2 )  20,;»5,50 

20 

NSTART 

«  (I-l)*NTHT*l 

NFIN 

*  I*NTHT 

00  21 

! 0*NST ARY* NFIN 

21 

UUO) 

*  VUO) 

KOUNT 

»  K0UNT*1 

GO  TO 

11 

25 

00  26 

10-  NSTART .NFIN 

26 

UUO) 

•  HUD) 

KOUNT 

»  KOUNT* l 

GO  TO 

11 

50 

CONTINUE 

RETURN 

701 

F0RPA1 

(3F12.6,I41) 

702 

FCRPAT 

(6E12.5,!5,I3) 

711 

FCRPAT 

(IE12. 5,165,13) 

712 

FORNAT 

(2E12. 5, 153,13) 

713 

FCRPAT 

( 3E12.5, 141 ,13) 

714 

FORPAT 

(4E12. 5, 129,13) 

715 

FCRPAT 

(5E12. 5,117,13) 

703 

FCRPAT 

(6E12.5,1X,A1,2I3) 

721 

FCRPAT 

( IE12.5,61X,AI,2I3) 

92 


noon 


722 

723 

724 

725 


FORMAT  f2E12.5f49XtAlt2m 
FORMAT  (3El2.5f37XfAl.2I3) 
FORMAT  (4E12.5.25XfA)f2I3) 
FORMAT  (5E12.5tl3XfAl.213) 
END 


SUBROUTINE  PRTOUT  ( IGEOM.XO, Y0, ZO.U.V, W,CP,MK, NTHI) 

PRINTS  OUT  COMPUTED  ANSWERS.  INFORMATION  INCit’OES  -JET  CENTERLINE 
DATA  AND  INOUCEO  VELOCITIES  AT  CONTROL  POINTS 

DIMENSION  Xl(lOO), ZKIOO.UJUIOO), 01(100), QXD21<  100) 

DIMENSION  X2(100). 22 (100)*UJ2 ( 100) .021 100 )  .0X02  2 ( 100) 

01  PENSION  X3 ( 100 ) 1 23 ( 100 ).UJ3( 100) .33(100). 0X02 3(100) 

DIMENSION  X4( 100 ) . 24 f 100 ) »U J4 ( 100 ) * 04 ( 100 ) . 0X0241  100) 

DIMENSION  X5(100), 25(100), UJ5C100), 05(100). 0XDZ5I  100) 

DIMENSION  XBAS1 « 100 ) . YBAS 1 ( 100 ). ZBASl « 100 ) 

DIMENSION  XBAS2( 100) ,YBAS2( 100 ) . ZBAS2( 100) 

DIMENSION  XBAS3( 100) .YflAS3(100).Z8AS3( 100) 

01  PENSION  X8AS4I100) .YCAS4( 100). 2BAS4I IOC) 

DIMENSION  XBAS5 I 100 ) , YBAS5 ( 100 ) • 2BAS5 ( 100 ) 

C0MP0N/BLK3/X1 .Z1.UJ1.01.CX0Z1.X2. 22.UJ2. 02.0X022 
COMMON /BLK4/X3.Z3.UJ3. 03, 0X023.X4. Z4.UJ4. 04.DX0Z4 
COMMON/ BLK5/X5.Z 5. UJ5. 05. 0X025 

C0MMCN/BLK6/XBAS1.YBAS1 .ZBASl .XBAS2.VBAS2, ZBAS2. X  BAS 3 *YB A S3. ZB A S3 
C0MM0N/BLK7/XBAS4. YBAS4, ZBAS4*  XBAS5, YBAS5. ZBAS5 
C0MM0N/8LK9/MULT , I H0L01. IH0LD2. IH0L03.K0UNT1.KDUN  T 2 
C0MPQN/BLK1Q/ TONE. ITWQ, ITHR, (FOUR, IFtV.Nl.N2.N3.N4.N5 
COMMON/BLK1 3/X J3 .YJ3.ZJ3, OJET  3.VEL J3. XJ4.YJ4.ZJ4, DJU  T  4. VEL J4 
C0MM0N/BLK14/X J5 ,Y J5.2J5.0JET5.VELJ5 
C 

01  PENSION  X0!l),Y0m,Z0(l),U(l),V(l).W(l),CP(  1) 

C 

WRITE  (6.601) 

601  FORMAT  <lHO,///> 

IF  (MULT-2)  1,2,3 

1  WRITE  (6.602) 

602  FORMAT  ( IH0,46X,27H**  SINGLE  JET  CENTERLINE  ** ) 

GO  TO  20 

2  WRITE  (6.603) 

603  FORMAT  ( IH0.43X.33H4*  CENTERLINES  OF  JETS  1  AND  2  **) 

GO  TC  4 

3  WRITE  (6.604) 

604  FORMAT  (IH0.42X.35H**  CENTERLINES  OF  JETS  1,2  AND  3  **) 

4  IF  (MULT-2)  5,5,6 

5  IF  (IH0L01-2)  20,7,7 

7  WRITE  (6,605) 

605  FORMAT  (IH  .51X.17HAN0  COALESCED  JET) 

GO  TO  20 

6  IF  (IH0101-2)  >0,8,8 

8  WRITE  (6,606) 

606  FORMAT  (IH  .37X.46HTHE  JET  RESULTING  FROM  COAl  ESCENCE  OF  JETS  1,2) 
GO  TO  16 

10  IF  (IH0102-2)  15,9  9 

9  WRITE  (6,607) 

607  FORMAT  QH  .37X.46HTHE  JET  RESULTING  FROM  COALESCENCE  OT  JETS  2,3) 
15  K-  (IHCLD3-2)  20,11,11 


11  WRITE  (6*608) 

608  FORMAT  (1H  ,26X,70HTHE  JET  RESULTING  FROM  COALESCENCE  OF  JET  1  AND 
1THE  JET  DESCRIBED  ABOVE) 

GO  TO  20 

16  If  (IH0LD3-2)  20*12*12 

12  WRITE  (6*609) 

609  FORMAT  (1H  ,26X*70HTHE  JET  RESULTING  FROM  COALESCENCE  OF  THE  ABOVE 
10ESCRIBE0  JET  AND  JET  3) 

20  CONTINUE 

WRITE  (6*630) 

630  FORMAT  (1H0,45X»32H***P***6*********«'***6*4*******//) 

IF  (MULT.GE.l)  WRITE  (6*610) 

IF  (MULT.GE.2)  WRITE  (6*611) 

IF  (MULT.GE.3)  WRITE  (6*617) 

610  FORMAT  ( 1H0.3X*6HXC0CRD,3X,6HVC00R0. 3X, 6HZC00RD, 3X,2HUJ, AX, 3H0IA ) 

611  FORMAT  ( 1H» ,42X .6HXC0CRD* 3X.6HYCOORO. 3X, 6HZC00RD* 3X*  2HUJ , AX, 3HDIA ) 
617  FORMAT  ( 1H* ,81X,6HXCCORD,3X,6HYCOORO,  3X,6HZC00RD,  3X,2HUJ,4X,3HDIA) 

WRITE  (6,612) 

612  FORMAT  (1H0) 

IF  (MULT-2)  30*40*60 
30  CONTINUE 

WRITE  (6*616)  (XBAS1 ( I ) *YBASi ( I )• 2BAS1( I )*UJ1 p I )*  Cl(  I  )•  1=1, Nil 
616  FORMAT  (1H  , 1X«F8.2* IX , F8 .2, IX, F8 .2, IX* F5. 3, 1 <  F5.2 I 
GO  TO  90 

40  IF  (N1-N2)  41*42,42 

41  IP1  *  N1 
IP2  -  N2 
GO  TO  43 

42  I  PI  *  N2 
IP2  *  N1 

43  CONTINUE 

00  47  1*1, IPl 

47  WRITE  (6,613i  X?  AS  1 ( I)  , Y8AS1 ( I ), ZBAS1 ( I ),UJ l(  I ) ,  D 1 ( I ) ,XBAS2< I ) , 

1  YBAS2 ( I ) ,Z8AS2 ( 1 ) *U J2 ( I ) *02 ( I ) 

613  FORMAT  (1H  , 1«,F8. 2, IX *F8.2* IX, F8.2, in , F5. 3, IX, F5.2, IX, F 8.2, 1X? 

1  F  8>2  *  1 X  ,  F8 .2  i  ]X*T5.3*1X*F5.2*1X*F8.<'?  1X*F8..2*  IX,  F8.2*  IX  ,F5.  3,  IX , 

2  F5.2> 

IF  (N1-N2)  48,50,44 

48  IPP  *  IP1+1 

00  45  I*IPP, 1P2 

45  WRITE  (6,614)  XBAS2 ( I) , YBAS2( I ) , ZBAS2 ( I ) »U J2(  U ,  02(  I ) 

614  FORMAT  (1H  ,407 , F8.2 * IX , F8.2, IX, F8. 2, IX, F5. 3, IX, F 5.2, IX, F8. 2 , IX, 
l  F8.2,1X,F8.2,1X,F5.3,1X,F5.2) 

GO  TO  50 

44  IPP  *  IPl*l 

DO  46  I *IPP,I P2 

46  WRITE  (6,613)  XBAS1 ( I ) , YBAS1 ( I ) , ZBAS1 ( I )  ,UJ1 1 1  ),  0 1  ( 1 ) 

50  CONTINUE 

IF  (IH0LD1-2)  90,51,51 

51  CONTINUE 

V3  =  1./VELJ3 
ZP  =  YJ3 
YP  =  -ZJ3 

WRITE  (6,615)  XJ3,YP,ZP,V3,0JET3 

615  FORMAT  ( 1H0,3X,27HPR0PER:!ES  OF  COALESCED  JET, 3X, 2HX*,f 9.2, SX,2HY= 
1,F8.2,3X,2HZ*,F8.2»3X ,6HU/U JO*  »  F5. 2 , 3X, 5HD/D03  ,  F  5 . 2 ) 

WRITE  (6,610) 

WRITE  (6,616)  (XBAS3  ( I  )  , YBAS3  (I),ZBAS3(I)»UJ3(  I  )  •  D3(  I  )  *  i~-l,N3) 

GO  TO  90 


60  CONTINUE 

IE  IN1-N2I  61,72,62 

61  IF  INI-N3)  63,80,66 
63  IPl  *  N1 

IN01  «  1 

!F  1N2-N3J  65,76,66 

65  IP2  *  N2 
IP3  *  N3 
IN02  *  2 
GO  TO  70 

66  IP2  «  N3 
IP3  «  N2 
IN02  *  3 
GO  TO  70 

66  IPl  *  N3 
IP2  »  Nl 
IP3  *  N2 
IN01  *  3 
VND2»  l 
GO  70  70 

62  IF  (N2~N3)  67,76,68 

67  IPl  *  N2 
INOl  *  2 

IF  IN1-N3I  69,80,71 
69  !P2  «  Nl 

IP3  «  N3 
I N02  »  1 
GO  TO  70 

71  IP2  *  N3 
IP3  »  N2 
IN02  -  3 
GO  TO  70 

68  IPl  «  N3 
I P2  «  N2 
IP3  «  Nl 
IN01*  3 

I ND2*  2 
GO  TO  70 

72  INOl  »-l 

IF  (NI-N3)  73,76,75 

73  IPl*  Nl 
IP3-  N3 
IN02  *  3 
GO  TO  70 

76  INOl  »  0 
IPl  »  Nl 
GO  TO  70 

75  IPl  «  N3 
IP3  «  Nl 
IN02  •  l 
GO  TO  70 

76  IW01  —2 

IF  (N1-N2)  77,76,78 
11  IPl  *  Nl 
IP3  »  N3 
IND2  »  3 
GO  TO  70 
IPl  *  N2 
IP3  «  Nl 
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IND2  *>  I 
GO  TO  70 
00  IN01  *-3 

IF  (N1~N2)  8l,74,«2 

81  IP1  -  N1 
IP3  «  N2 
IND2  «  2 
GO  TO  70 

82  IP1  «  N2 
!P3  i  N1 
1ND2  «  1 

70  CONTINUE 

00  05  l»l,IPl 

85  WRITl'  (6»61 3)  XBASim,YBASi(I),ZBASl(I),UJim,Dl(I),XBAS2(I). 

1  Y3Ai2(I )  ,ZBAS2U )  9U  J2  ( I )  ,D2  (I),XBAS3  ( I ) ,  YBAS3(U  ,ZBAS3(  IJ.UJMi, 

2  03(11 

IF  UNO!)  120*150*100 

100  IF  (INDl-2)  101*102*103 

101  IPP  »  IP1+1 

00  111  I*IPP,IP2 

111  WRITE  (6.614)  XBAS2( 1 1 *YBAS2 ( I )»  ZBAS2 (I )»UJ2(I )»D2(I)»XBAS3( I)* 

1  YBAS3 ( I ) *ZBAS3 (I)*UJ3(I)*03(I) 

IF  (INP2-2)  104*104*105 

104  IPP  «  IP2M 

DO  106  I'IPP»IP3 

106  WRITE  (6.618)  XBAS3 ( I ) »YBAS3 ( I ) « ZBAS3I I )*UJ3( I )* C3( I ) 

618  FORMAT  ( IH  ,79X , F8 .2  *  IX , F8.2 , 1X.F8.2. IX, F5.3, 1X.F5.2) 

GO  TO  150 

105  IPP  «  IP2+1 

DO  107  I»IPP,IP3 

107  WRITE  (6*614)  XBAS2 ( I ) *YBAS2( I )* ZBAS2I I ),UJ2(I), D2( ! ) 

GO  TO  150 

102  CONTINUE 
IPP  »  IPUl 

00  110  I*IPP* I P2 

110  WRITE  (6,620)  XBAS1 ( I ) .YBASi ( I ) * ZBASl ( I ),UJ1( I ) ,D1( I ) *XBAS3(  I  )* 
l  YBAS3 ( I ) , ZBAS3 (I),UJ3(I),D3(I) 

620  FORMAT  (1H  ,lX,F8.2,iX,Fa.2,lX,F8.2,lX,F5.3, 1X,F5.2,40X,F8.2,1X, 

1  F8.2*1X,F8.2*1X,F5.3*1X,F5.2) 

IF  ( IN02-2)  104*104*108 

108  IPP  «  IP2+1 

DO  112  I«IPP,IP3 

112  WRITE  (6*613)  XBAS1(I)*YBAS1(I )• ZBASl ( I)*UJ1((),D1(I) 

GO  TO  150 

!03  CONTINUE 

IPP  «  IP141 
DO  109  I-IPP.IP2 

109  WRITE  16,613)  XBAS1 ( I ) * YBASI ( I ), ZBASl (!)*UJ1(I)*D1(I) * XBA$2( I ), 

1  YBAS2(I)*Z8AS2(I)*UJ2(I),0<!(!) 

IF  (IN02-2)  105*108*108 

150  CONTINUE 

IF  I IH0LD1-2 )  151,152,152 

151  IF  (IH0102-2)  90*153,153 

152  IF  (N4)  170,170,154 
154  V4  «  1./VELJ4 

ZP  ■  YJ4 
YP  *  -2 J4 

WRITE  (6*621)  XJ4,YP,ZP,V*,0JET4 

FORMAT  (1H0,3X,41HJET  FCRMEO  BY  COALESCENCE  OF  JETS  1  AND  2.3X, 

dC 
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1  2HX*,F9.2«  3X»2HY*,F8«2,3X,2HZ*, F8«2, 3X,6HU/UJ0*» F5*2«3X, 5HD/D3S« 

2  F5.2) 

GO  TO  158 

153  IF  (N4)  170*170* 155 
155  V4  -  1./VELJ4 
ZP  «  YJ4 
YP  *  -ZJ4 

NRITE  (6*6221  XJ4,YP,ZP,V4,DJET4 

622  FORPAT  ( 1H0,3X,41H JET  FORPEO  BY  COALESCENCE  OF  JETS  2  AND  3,3X, 

1  2HX*,F9.2,3X,2HY-»F8.2,3X,2HZ«,F8.2,3X,6HU/UJ0-,F5.2,3X,5H0/D0«, 

2  F5.2) 

158  NRITE  (6*6101 

WRITE  (6*616)  (XBAS4 ( 1 1  * YBAS4 (II*  ZBAS4{ I ),UJ4( 11*04(1 1*  I*l»N4) 

170  CUNT1NUE 

IF  (IH0L03-2)  90,171,171 

171  V5  *  1./VELJ5 
I?  *  YJ5 

YP  •  -ZJ5 

WRITE  (6,615)  XJ5*YP*ZP*V5*0JET5 
WRITE  (6*610) 

WRITE  (6*616)  (XBAS5 (I ),YBAS5 ( I )*ZBAS5( I )• UJ5( I ) » 05 ( I )*  I«1,N5) 
GO  TO  90 

120  CONTINUE 

IF  ( I ABS ( 1N01 )-2 )  130,135*140 
130  IF  (IND2-2)  121,121,123 

121  IPP  «  1PI+1 

DO  122  I«IPP,IP3 

122  NRITE  (6,613)  XBAS1  ( I )  ,YBAS1  ( I ). ZBASl (  D.UJK  1 ) , DM  I )  ,XBAS2<  I ), 

1  YBAS2 ( I ) ,ZBAS2 ( I ) *UJ2 ( I ) ,02( 1 ) 

GO  TO  150 

123  IP2  «  I  PI 
GO  TO  104 

135  IF  ( IND2-2)  124*126*126 

124  IP 2  «  IPl 
GO  TO  108 

126  IPP  «  IP1+1 

00  127  I *IPP*I P3 

127  WRITE  (6*614)  XBAS2 ( I ) *YBAS2( I )*  Z6AS2 (I)*UJ2(I)*D2(I ) »XBAS3( I  )* 
l  YBAS3 ( I ) ,ZBAS3( I ) ,U J3 (I ) * 03 ( I ) 

GO  TO  150 

140  IF  (IND2-2)  142,141,142 

141  IP2  «  IPl 
GO  TO  105 

142  IPP  «  IPl+i 

DO  143  I«IPP,IP3 

143  WRITE  (6,620)  X8AS1 ( I ) ,YBAS1 ( I ), ZBASl ( I »,UJ1( I ), Dl< I ) ,XBAS3i I  )* 

1  YBAS3(I)*ZBAS3(I),UJ3(a » *05(11 

GO  TO  150 
90  CONTINUE 

IF  (IGEOP)  200,99,200 

200  WRITE  (6,640) 

640  FORPAT  (1H1) 

IF  ( IGECP-2 )  201,202,203 

201  CONTINUr 
WRITE  :.',»63l) 

631  FORPAT  ( 1H0»4*  X,34H***  INDUCED  VELOCITIES  ON  WIN6  ♦♦* ) 

632  FORPAT  ( 1H0 „27X, IHX,8X , 1HY,6A P IHZ,  12X,1HU,  14X,  IHV,  1*X,  1HW/ ) 

GO  TO  205 

02  CONTINUE 
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WRITE  (6*633) 

633  FORMAT  (1H0,44X,34H***  INDUCED  VELOCITIES  ON  BODY  ***) 

205  CONTINUE 
WRITE  (6*630) 

WRITE  (6*632) 

MOUNT  *  1 

00  210  I«l,NM 

WRITE  (6*634)  X0< I ) ,Y0( I ) *Z0 ( I )*U( I  )*V( It, W( I) 

634  FORMAT  (IH  *2IX»F9.3*IX»F9.3* 1X*F9.3* 3E15.5) 

IF  (I~MOUNT*NTHT)  210*206*210 

206  MOUNT  *  MOUNT+1 
WRITE  (6*630) 

WRITE  (6*640) 

IF  ( I-NM!  214*210*210 
214  CONTINUE 

IF  ( IGEOM-2 )  211*212*212 

211  WRITE  (6,631) 

GO  TO  213 

212  WRITE  (6,633) 

213  WRITE  (6,630) 

WRITE  (6,632) 

210  CONTINUE 
GO  TO  99 
203  CONTINUE 

WRITE  (6*635) 

635  FORMAT  ( 1H0,38X,44H**«  INDUCED  VELOCITIES  AT  CONTROL  POINTS  ***) 
IF  ( IGEOM-3)  221,221,222 

221  WRITE  (6*632) 

WRITE  (6*634)  (X0( 1 1 *Y0 ( I )* ZO ( I )*U<  I ), V( I ) *W( 1 )•  I«1,NK) 

GO  TO  99 

222  WRITE  (6,636) 

636  FORMAT  (1H  *40X*39HPRESSURE  COEFFICIENTS  AT  CONTROL  POINTS) 

WRITE  (6,637) 

637  FORMAT  ( 1H0,20X,1HX*8X, IHY,8X* 1HZ, 12X, 2HCP. 14X* IKU,  14X* 1HV, 14X, 

1  lHk/l 

WRITE  (6*638)  (X0< I ) ,Y0 ( I )• ZO ( I ),CP( I),U< I ),V( I ) , W( I ) ,  I«i,NK) 

638  FORMAT  (1H  ,14X,F9.3,1X,F9.3, 1X{F9.3,4E15.5) 

99  CONTINUE 

•  RETURN 
END 


SUBROUTINE  TRANSl  (MULT* ALFA, BETA, PSID) 

TRANSFORMS  INPUT  COORDINATES  TO  PROGRAM  COORDINATES  (F1XE0) 
CONVERTS  ANGLE  OF  ATT  ACM  AND  SIDESLIP  TO  FRSTRM  DIRECTION  COS. 

COMNON/BLM8/ALFQ*6ETQ»GETG»Fi»F2»F3*F4,F5»VMONST 
C0MM0N/BLM12/X J1 ,Y J1 *ZJ1 *C  JET 1*VEL J1*X J2» YJ2*  Z J2»  CJET2* VEL J2 
COMMON/BLM13/XJ3*YJ3,ZJ3,OJET3,VELJ3,XJ4* YJw*Z J4*  DJET4* VELJ4 
C 

DIMENSION  PSIO(l) 

C 

A  -  ALFA*. 0174533 
B  *  BETA*. 0174533 
ALFO  »  CCS( A)*COS(B) 

BETG  *  SIN( A)*COS(B) 

GETC  *  SIN(B) 

YS  »  YJ1 
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YJl  «  ZJ1 
ZJl—YS 

psiom  *  -psiom 

IF  (MULT-21  5,4,3 

3  YS  «  Y4* 

YJ3  •  2J3 
ZJ3  «-YS 

PSIOI3)  «  -PSIOO) 

4  YS  «  YJ2 
YJ2  «  2 <22 
ZJ2  «-VS 

PSI0I2)  -  -PSIOI2) 

5  CONTINUE 
RETURN 
END 


SUBROUTINE  VEU  (MULT, ALFA.VK1, VK2 ) 

COMPUTES  EFFECTIVE  VELOCITY  RATIO  FOR  OOMNSTREAM  JET  AT  EXIT 

C0MMCN/BLK8/ALFQ,BETQ,GET0,FI,F2,F3,F4,F5,VK0NST 
COMP0N/8LK12/X J1 *YJ1,ZJI«DJETI,VELJ1,XJ2*YJ2, ZJ2, 0JET2, VELJ2 
C0MP0N/BLK13/X J3 ,Y J3, ZJ3, OJET  3,VEL J3, XJ4, YJ4, Z J4, 0JET4, VEL J4 
C0MMQN/BLK16/V2X1,V2Y1 «V2Zl«V2X2, V2Y2,V2Z2, V2X3, V2Y3?  V2Z3 

VELJl  -  1./VELJ1 
IF  (MULT-2)  5,1,1 

1  VELJ2  •  1./VELJ2 

DOTP  *  (XJ2-XJ1)*ALFQ*(YJ2-YJ1)*BETQ*(ZJ2-ZJ1)*GETQ 
DEN  «  SQRTt (X J2-XJI )**2*(YJ2-YJ1 )**2*(ZJ2-ZJ l)**2 ) 

DOTP  *  OOTP/DEN 
IF  (ABS(DCTP)-.02)  10,10,11 

10  VK1  -  1. 

GO  TO  15 

11  CONTINUE 

A  ■  ALFA*. 0174533 
ALF  *  COS(A) 

BET  *  SIN(A) 

GET  *  0. 

CALL  XPROO  (V2X1,V2Y1,V2Z1*ALF,BET,GET,XT1,YTI,ZT1) 

CALL  XPROO  (XT1,VT1,ZT),ALF,BET,GET,CFNX,CFNY,CFNZ) 

CALL  PLANE  (CFNX,CFNY,CFNZ,XJl,YJl,ZJl,V2X2,V2Y2,V2Z2,XJ2cYJ2,Z J2, 
1  XI ,YI ,ZI )  ' 

S  »  SORT  (IXJ1-XI)**2  ♦ (Y Jl-Y I )**2  ♦  ! ZJ1-ZI  1**2)/DJET1 
VK1  «  <S*.7S)/(S-L.) 

15  CONTINUE 

IF  (MULT-2)  5,5,2 

2  VELJ3  «  1./VELJ3 

IF  (ABS(D0TP)-.02)  12,12,14 

12  VK2  *  1. 

GO  TO  5 

14  CONTINUE 

CALL  PLANE  (CFNX,CFNY,CFNZ,XJ1,YJ1,ZJ1,V2X3,V2Y3, V2Z3,XJ3,YJ3.Z JJ, 
1  XI  »YI  •  Z I  ) 

S  *  SORT  ( ( X Jl-X I ) **2  ♦(YJl-YI)**2  ♦( ZJl-Z I )**2 I/DJET 1 
VK2  »  (5*.75)/(S-l.) 

CALL  XPROD  ( V2X2 ,V2Y2 ,V2Z 2, ALF, BET , GET ,XTl,YTl*2Tl) 

CALL  XPROD  (XTl,YVl»ZTl,ALFt BET , GET , CFNX»CFNY, CFNZ  ) 
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CALL  PLANE  (CFNX ,CFNY ,CFNZ,X J2.YJ2, ZJ2, V2X3,V2Y3, V2Z3.XJ 3, YJ 3,Z J3, 
1  XI.YI.ZI) 

S  «  SORT  l(XJ2-XI)**2  ♦  IYJ2-YI1>*>2  ♦IZJ2-ZI)**2)/DJETl 
VK2  *  I S+«75 ) / 1 S-l • ) *VK2 
5  CONTINUE 
RETURN 
ENO 


SUBROUTINE  TRANS2  (Y*Z*NO) 

C 

C  TRANSFORMS  INPUT  COORDINATES  TO  PROGRAM  COORDINATES  (FIXED) 
C 

DIMENSION  Ml). ZII) 

C 

DO  I  1*1, NO 
YS  *  Yli! 

YII)  «  ZII) 

1  ZII)  «  -YS 
RETURN 
END 


SUBROUTINE  TRANS3  |V*Z«V*M*NO) 

TRANSFORMS  PROGRAM  COORDINATES  (FIXED)  TO  OUTPUT  COORDINATES* 

JET  CENTERLINE  AND  CONTROL  POINT  COORDINATES  ARE  AFFECTED 

DIMENSION  XBAS1 ( 100 ) * YOAS 1 ( 100 ) * ZBAS 1 ( 100 ) 

DIMENSION  K3AS2 ( 100 ) * YBAS2 ( 100 ) > ZBAS2 1 100 ) 

DIMENSION  XBAS3I 100) *YBAS3(l00)*2BAS3f 100) 

DIMENSION  XBAS4I 100) «YBAS4( 100), ZBAS4I 100 ) 

DIMENSION  XBAS5 ( 100 ) * VBAS5 1 100 > , ZBAS5 ( 100 ) 

COMMON/BLa£/XBAS1*YBASI *Z8ASI *XBA$2*YSAS2*ZBAS2*  XkKS3»  YB4S3*IBA$3 
CQMM0N/BLK7/XBAS4* YBAS  4*ZBAS4»X3AS  ■>»  Y8AS5*  ZBAS 5 
COMMON/BLKIO/IONE*  ITVJ, ITHR* IFOUR,  ?FIV,N1,N2,N3,N4,N5 

DIMENSION  Y(l)*Z(l)*V(l)»N(l) 

00  1  1*1 » NO 
YS  *  V ( I ) 

VII)  *  -ZII) 

ZII)  *  YS 
VS  *  VII) 

VII)  «  -Nil) 

1  Nil)  -  VS 

DO  i  !*1*N1 
YS  *  YBASKI) 

Y8AS1I1)  *  -ZBASil!) 

2  ZBASil I )  *  YS 
IF  (N2)  3*10*3 

3  DO  4  I*1»N2 
YS  *  YBAS2 1 1 > 

YBAS2I!)  «  -ZPAS2I ! 5 

4  iC*S2(l)  «  VS 
10  IF  ( Na i  3,20*5 

5  00  6  1*1, N3 
YS  YBAS3 ( I ) 
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6 

'0 

7 


8 

30 

9 


II 

40 


YBA$3tI)  *  -ZBAS3(l) 
ZBAS33I )  *  YS 
IF  <N4)  7,30,7 
00  8  I-1.N4 
YS  *  YBAS4U) 

YBAS4C I )  *  -Z6AS4( I ) 

ZBAS4III  «  YS 

IF  IN5)  9,40,9 

00  11  I «l ,N5 

YS  *  YBAS5II) 

YBAS5II)  *  -ZBAS5I It 

ZBAS5I!)  *  YS 

CONTINUE 

RETURN 

END 


SUBROUTINE  PLANE  (CFNI .CFN2.CFN3, XI, Yl, Zl.CSNl,C$N2,CSN3, XL 1.XL2, 
1  XL3,C00R1,C3GR2,C00R3) 

COMPUTES  INTERSECTION  OF  A  GIVEN  PLANE  WITH  A  LINE 

OIMENSIQN  CFNI?.  1  ,CSNI3I,XL(3),C00R(3) 

CFNI It  -  CFNI 
CFNI2I  »  CFN2 
CFNI3)  -  CFN3 
CSNI1J  *  CSNl 
CSNI2J  ■  CSN2 
CSM3;  «  CSN3 
XL  1 1)  »  XL1 

XL  1 2)  *  XL2 

XL  I  3)  «  XL3 

IL  »  l 
IH  1 
IN  <  1 
SUB1  *  0. 

IF  (ABS(CSNtlM~1.0E-04)  1,1,2 

1  IL  *  0 

SU81  *  CFNm*XL(ll 

coor(i)  «  xun 

2  IF  IABSICSNI2) }-l»0E-04)  3,3,4 

3  IN  *  0 

SUB1  -  SUB1*CFN(2I*XL(2) 

C00RI2 )  «  XLt2) 

4  IF  (ABSICSNI3) 1-1.0E-04)  5,5,6 

5  IN  *  0 

SUB1  *  SUBl*CFNI3)*XL(3) 

C0GRI3)  »  XLI3) 

6  0  «  CFNIl)«Xt rU'NC2»*Yl*CFNI31*Zl 
IF  I  IL*JM*IN-2)  10,30,50 

10  IF  ( I L I  12,11,12 

11  IF  (IM)  14,13,14 

12  IP  *  l 
GO  TO  15 

14  IP  m  2 
GO  TO  15 

13  IP  *  3 

15  COORUP)  *  (0-SUB1 1/CFNlIPI 
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GC  10  90 

30  IF  (IL)  32*31*32 

31  IPl  «  2 
IP2  -  3 
GO  TO  35 

32  IF  IIM)  39(33«34 

33  1P1  *  1 
IP2  «  a 
GO  TO  35 

34  IPl  «  1 
IP2  «  2 

35  SLOPE  «  CSMIP1 V/CSNIIP2I 

C00R(IP2f  *  (D-5UB1*CFN( IPl )*SLOPEf XL (IP2)-CFN( IPl )*XL(  IPl ) )/ 

1  (CFN( IPl )*SLOPE*CFN(  IP2) I 

COOftUPU  *  SLOPE«<COOR(IP2)-XL(IP2)t*XL(IPU 
GO  70  9C 

50  C0EFX1  «  l./CSNI 1) 

C0EFY1  -  -1./CSNI2) 

01  *  Xl(>)/CSN(1 )-XL(2)/CSN(2» 

C0EFX2  *  l./CSN(l) 

C0EFZ2  *  -l./CSNd) 

02  »  XL ( 1 > /CSN ( 1 )-XL ( 3)/CSN(3 ) 

CALL  SOL  (CFN(1 ) ,CFN (2 ) ,CFN( 3 ? , D» COEFXl, C0EFY1 » 0. ,01, C0EFX2, 0. » 
1  C0EFZ2 •O2«C0OR( 1 ! *CQQR(2 )  ,C00R(3 ) ) 

90  CCORl  *  CGOR(l) 

C00R2  •  CC0R(2) 

C00R3  «  CCORl 3) 

RETURN 

END 


SUBROUTINE  ADAMS  (N.  5  TART  ,  F  INAL.H,  PRINT  *  ICOUNT,  REI8.A8  SB,  ISKIP, 

1  XO,XP,PAR*CDERIV ) 

C 

C  SUBROUTINE  ADAMS  SOLVES  A  SYSTEM  OF  *N*  FIRST  ORDER  DIFFERENTIAL 
C  EQUATIONS  BY  MEANS  OF  A  FOURTH  ORDER  ADAMS  PREDICTOR/CORRECTOR 
C  METHOD.  THE  STARTING  SOLUTION  IS  BY  RUNGE-KUTTA  METHOO. 

C  AUTOMATIC  ERROR  CONTROL  IS  OPTIONAL. 

C 

DIMENSION  X(50,5),VK(50,4),F(50,5),E(50) 

DIMENSION  XP(l),XOm.PARm 
C 

I BOOL  *  0 

IF  (PRINT)  20*10*20 
10  IF  (ICOUNT)  20(31.20 
C 

20  CONTINUE 
C20  WRITE  (6.400)  10. N 
IBOCL  *  1 

C400  FORMAT  ( 17H0PR0BLEM  NUMBER  I 10.5X12HS0LUTION  OF 
C  l  I 3.5X35HFIRST  ORDER  DIFFERENTIAL  EQUATIONS.) 

C 

C  SETUP  INITIAL  VALUES 
C 

00  30  1*1, N 

xd.i)  *  xom 

30  CONTINUE 

31  CONTINUE 

IF  (ICOUNT)  40,35,40 
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35  I COUNT  *  9999 

40  ITEM  »  0 

BOOM)  «  START* MINT 
T  «  STf.RT 

IF  IISKIPI  45,50,45 
45  IA  *  2 

IB  *  4 
GO  TO  2222 

50  RLTEST  *  14.2*KELB 

ABTESI  *  14.2*A8SB 
FACTOf  *  RELB/ABSB 
BLB  *  RLTEST/200.0 
H  *  2  -0*H 
G 

C  r£wMGE  -KUTTA  STARTING  METHOD 

C 

1111  IA  *  2 
IB  *  2 
C 

2222  00  90  J*I A,IB 

CALL  DOERIV  (T,X<L,J-L),F(l,J-l),PAR) 

00  6'J  I*l,N 

VMItl)  «  H*F  ( I  »  J— 11 

XII, J)  *  XII, J-l)«.5*VK(I,l) 

60  CONI INUE 

TTEfP  *  T*.5*H 
C 

CAL'  DOERIV  (TTEMP,X(1,J)«F(1*J1,PAR1 

DO  70  I *1 ,N 

VK ( ( ,2  )  *  H*F  f I , J ) 

XII, J»  *  X(I,J-1)«.5*VKII,2) 

70  CONTINUE 

C 

CAIL  DOERIV  ITT£MP,Xli,J),F(l,Jl»PAR) 

00  60  I *1 ,N 
VK  >1,3)  *  H*F 1 1 , J) 

XI  i  ,J|  >  X  1 1 , J— l )*VK (1,3) 

80  CONTINUE 

T  *  T*H 
C 

C/LL  DDE.0. IV  j),F(l,J),PAR; 

on  85  I*l,N 
VMM)  *  M*F(1 *  Jl 

X;i,J!  *  XH,  J-1H,1666666T'*(VK(I,  l)*2.0*?VK(  I,  2)* 
1  VK<t,3))*VX(I,4)  ) 

85  CONTINUE 

90  CONTINUE 

C 

If  (IB-2)  150,3333,150 
3333  CO  ICO  1*1, N 

/pm  *  xii, 2) 

ICO  CONTINUE 

C 

C  <P(n*DCUBLt  INTERVAL  RESULT  TO  BE  USED  IN  ERROR 
C  ANALYSIS 

C 

T  *  T-H 
M  *  .5*H 
C 

J0.7 


-at 


T 


IF  (I 0001 I  120*125*120 
120  CONTINUE 
C120  MITE  (6*4101  N 

C410  F  00  NAT  I34M0IN  THE  FOIL  ON  INC  CALCULATIONS  M  *E14.S) 

12$  IF  (H-.OOCOOOl)  110*130*140 

130  MITE  (6*4201 

«?3  FO0NAT  (1H0*10(1H* )*//// 

1  49H0E0UATI0NS  CAN  NOT  8E  SOLVED  FU0THER  NITHlN  GIVEN 
c  14H  E00C0  BOUNDS.) 

0ETU0N 

C 

14f  IB  *  3 

GO  TO  2222 
C 

ISO  I  •  (IB-3)  200*160*200 

C 

C  IS  ACCURACY  CRITERION  NET 
C 

160  J  *  3 
4444  00  190  1*1. N 

E(I)*ABS(XP(I)  XU.JU 
IF(E(I)-AB$(t(I«J*  *RLTESTI)170»IT5,IT5 
170  Eli  )*E(I  )/A8>'.Xf  I,  J)  ) 

CO  TO  190 

175  IF  (E(I)'ABTESn  180.105*185 
180  E( I )  *  El D^F ACTOR 
GO  TO  190 
C 

105  ?  «T-H 

IF  I  J-5)  3333.187.3333 

187  00  188  K*1.N 

188  X(K.l)  *  XIK.4) 

GO  TO  1111 

190  CONTINUE 
C 

IF  I J-5) 195.6666.195 
195  IA  *  4 
IB  *  4 
GO  TO  2222 
C 

C  SHOULD  ANY  OF  THE  STARTING  VALUES  BE  PRINT EO  OUT 
C 

200  1  «  T-3.0*H 

DO  250  J*2.4 
T  «  T*H 

ITEM  *  ITENP+l 
IF  (PRINT)  210.230.210 
210  IF  (T-BOUND)  230.220*220 
220  bOUNO  *  BOUND* PRINT 
9999  CONTINUE 

C9999  WRITE  <6,4301  T. ( I ,X ( I , J ) , 1*1 ,N) 

C430  FORMAT  (4H0T  -E14.8/  5(  2H  X, 12, 1H* 1PE12.5 )) 

I  TEMP  *  0 
C 

230  IF  ( I TEMP-ICOUNT )  210,9999,240 
240  IF  CT-IFINAL-H/IO.O) )  250,999,999 
250  CONTINUE 
C 

C  BEGIN  AOAMS  METHOO 
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o  o  u  o  o  u  u  u 


c 

5555  CAU  OOERIV  (T,X(l,41.f(l,«I.Ml 
00  260  1*1* N 

XFII)  *  X(I,4»*.04l644A67»tt*(55.C*FII,4*-59.0*F(I.3) 

1  ♦37.0*FII,2»-5.0*FIX,in 

260  CONTINUE 
C 

T  -  T*H 

CALL  OOERIV  (T,XP(1) ,F(1,5)9FATI 
OC  270  I*l*N 

Xi  I  *5)  *  mt4l«.04l666667NI*(9.0*FIIl5)«19.0*FIIf4H 
I  5.0*FI 1 ,3)*F1 I ,2) ) 

270  CONTI  NIC 
C 

IF  IISKIF1  6666 #200*6666 
200  J  *  5 

CO  TC  4444 

C 

6666  IF  (T-IFINAL-H/IO.OM  295.290*290 
290  J  *  5 

CO  10  999 
C 

29$  00  300  1*1. N 

XII.41  *  XII, 5) 

00  300  J*2«5 
F1I.4-1)  *  FI I .J) 

300  CONTINUE 
C 

I  TEW  -  I  TEW* l 

TEST  MHETHER  CONFUTED  VALUES  SHOULD  SE  FF1NTED 

IF  IFRINTt  310.330.310 
310  IF  4T-IB0UND-H/10.0) 1330,320, 320 
320  BOUND  *  BOUND* PR I NT 
7777  4*4 

WRITE  (6.430)  r,II.X(I.J),I«l.N) 

1  TEW  *  0 

330  IF  1 1 TE  W-I COUNT )  340,7777,340 
340  IF  I1SKIF)  5555.350,555$ 

TEST  WHETHER  INTERVAL  CAN  BE  DOUBLED 

350  DO  355  1*1, N 

IF  IEII)-BIB)  355,355,5555 
355  CONTINUE 
C 

IF  (PRINT)  358,380,358 
358  01  *  PRINT/ (2.0*H) 

Oil *ABS( FLOAT (IFIX(Dl) )-Dl ) 

IF  (Dll-.l)  362,362,360 
360  IF  (Oil-. 9)  5555,362,362 
362  02  *  (8CUN0-T)/ (2»0*H) 

021 *A8S ( FLOAT ( IF  IX (02 ) J -02 ) 

IF  (02I-.1)  380,380,365 
365  IF  (02I-.9)  5555,380,380 
380  DO  382  1*1, N 

X ( I ,1)  *  X ( I ,6 ) 
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M2  CONTINUE 
M  *  4.0«H 
60  TO  1111 
C 

Ml  CONTINUE 
cm  H«l  IE  16.440) 

C440  F OH HAT  (20H0FINAL  T  «9»  XFf I...I 
00  369  1*1. N 
XFIII  *  XII. J) 

M5  CONTINUE 
FINAL  *  T 

C  WRITE  16.430)  T.O.XII.Ji.M.N) 

RETURN 

ENO 


SUBROUTINE  CECAL I ALFQ.BETG.CETQ.FHI.FSI.CF) 

C 

C  CONFUTES  DIRECTION  COSINES  FOR  THE  LOCAL  COORDINATE  SYSTEM.  X  IN 
C  DIRECTION  OF  FREESTREAH.Y  NORMAL  TO  FREESTREAR  AND  INITIAL  JET 
C  DIRECTION*  Z  IS  XCROSSY 
C 

DIMENSION  CFI3.3) 

C 

CXJ  *  SIN(FH!3*£GS{FS!) 

CYJ  *  CSSiFHl) 

CZJ  «  SIN(FHII«SIN(FSI) 

CF(t.I)  *  ALFQ 
CFI  1*21  *  B«-TQ 
CFI1.3I  *  RI' 1 

CALL  XFROO  ICX ,CYJ,CZJ.CFIl.:),CF(l,2).CF<l.3).CFI2.1),CF(2.2). 
1  CFI2.3II 

CALL  XFROO  (CF(l.l).CF(l.2).CF(l.3).CF(2. 1I.CFI2.  2)*CFI2*3I* 

1  CF(3,i ),CFI3,2:,Cr(3,3)» 

RETURN 

ENO 


SUBROUTINE  ROTATE  (A(B*C* CF.S.T.U.L) 

( 

C  L~0  ROTATES  A.B.C  INTO  S.T,U. (FIXED  COORDINATES  TO  ROTATED) 
C  L*1  ROTATES  S«T«U  INTO  A.B.C* (ROTATED  COORDINATES  TO  FIXED) 
C 

DIMENSION  CF(3.3).0(3)fV(3) 

C 

IF  (L)  1.1.2 

1  Oil)  *  A 
012)  *  B 
DI3)  *  C 
GO  IT  3 

2  DO.)  *  S 
0(2)  *  T 
DI3)  =  U 

3  CONTINUE 
DO  4  1*1.3 

4  VII)  *  0. 

DO  5  1*1,3 
DO  5  J* l ,  3 

If  ID  9.%)0 


Iff 


non  non 


9  N  *  I 
•  •  4 
CC  TO  9 
10  N  *  J 
N  *  I 

5  VIII  «  VIII*0(JI«CflMi 
IF  (LI  6.6,7 

6  S  »  Will 
1  *  Vi2) 
li  *  »()) 

GC  IC  9 

7  A  *  fill 
6  *  9121 
£  *  7(3) 

8  CGMiriE 

RE TURK 

EMC 


SUC ROUTINE  XPXOO  ( ALFI.BET1.GET1. ALF2.BET2.GET2.ALF3.8ET3.GEY3) 

COMPUTES  .ROSS  PRODUCT  OF  TWO  VECTORS. RETURNS  A  UNIT  VECTOR 

AlFJ  *  fctn*CET2-BET2*GETl 
BET3  *  ALF2 *GET 1 -ALF 1*GET 2 
GET3  *  ALFi«BET2'ALF2«6ETl 

DEMCM  *  $CRT(jilF3*ALF3*eET3«8ET3*GET3*GCT3) 

At_F  3  *  AIF3/DENOP 
BET 3  *  BET3/0ENCP 
GET3  *  GET3/r»Ci»OP 
RETURN 
END 


SUBROUTINE  SOL  <A11,AI2,A13,AK1„A?1. A22, A23.AK2.A3l.A32.A33.AK3. 
I  X1.X2.X3) 

SOLVES  A  SET  OF  THREE  EQUATIONS  BY  METHOD  OF  DETERMINANTS 

OFLTA  *  A11*<A22*A33-A23*A32)«A21*{A32*A13'A12*A33> 

I  *A3I*f A12*A23-A13*A22) 

XI  =  (AKl*<A2;!*A33~A23M32)*AK2*(A32*A13-Ai2*A33) 
l  ♦AK3* I A12*A23-A13* A22 )  l/OELT  A 

X2  *  CAll*(AK2»A33-»23*AK3)*A21*IAX3*A13-AKl*A33) 
l  ♦ASIA ( AK16A21  -A13*AK2) )/0ELTA 

X3  *  (All*(A22*AK3-AK2*A32;«A2l*(A32*AKi-A12*AK3) 

1  ♦A3l*(A12»AK2-AKl*A22})/0ELTA 

RETURN 
END 


JOT 


PROGRAM  PAPF*I( INPUT, CUTPUT. TAPES* INPUT* IAPE6=3UTPuT) 

C 

CIPEASICA  ACG7  (20  ,X(1QG),Y(1C0  ) r XCOR 1 20)  ,  YCOR  1  70  I.DALPHAI  20 ) » 
18(55), C<S>  *501, ALPHA!  1001  #SC  1001 ,3ETAC20),EXP3X 1 20, OMEGA (1001. 
?R(1CC*V  ,Oi:GAA(ll),5A(ll),EPSl(ll).RA(ll),A(50,  50  > .  >>(  50  .  VEL !  ICO). 
3Pi  I  (ICO)  .L'UPMY (20.2) 

C 

C'T^  KPl.ASYISNrERf, KORN. NCCR.RC.DALPHA. PHI, DUMMY, ALPHA, S 
C 

1  RFAC  *5,5)  APT  .KCRN.MERP.MSYP 

S  F'RPAT 120131 

If  <<ECF  IS))  500.6 
5  R1AC  (5*10  (X(I|,!=1,*FT) 

RFAC  (5. 10)  {tlll.N,'.?*! 
iC  FCRPAI (8F9.5) 

RFAC  (5,10  OX 
DL  12  1*1, KPT 
12  X(I)sXm+OX 

IF  (ASYP)*Cj,15,20 
15  X|NP|*l)<=X,'HPT-i) 

v(kpt*i)=-y(k?t-i) 

g;  IC  2S 

ZC  X(5PT+1)=X(2) 

YlhPT*! )=YC2) 

2S  If  (KCRM  SCO, 55, 33 

3t  RF  AC  (5,5)  (SttCORII ), 1=1, KORN) 

GC  IS  l=l,5CR5 

35  R-AC  (5,10  XCCRm.YCORIU.CAlPHAII) 

Of  ffc  I=i.XCR5 
if.  XCCRII) =XCC«( I )*CX 
Kr&l=KGRN 
0 r  50  I=l,KORl 

E/PCM  H=-OALPHA(|)/(  3.141593+OALPHAI  I)  I 
If  (NSYP)  5 00, *0,50 
5C  If  (YCCR(D)  55.50,55 

55  KfR5=K0RN«l 
NCCRJK0«M=0 
YCG^(KORN)=-YCGR(I) 

XcC1*!  KCRN I  =  KCCR  (I) 

EXPCMKCRM  =EXPCMl) 

ST  CFMfNUf 
SS  Al  PHI. Cl  )  =1.570796 
VC=1 
XH=r. 

If  (5SYPI  500,65,60 
£C  RE  AL)  (5,l<>)  ALPHft(l) 

£5  If  IKON)  5G0, 90,70 

ro  IF  (NCCR(l)-l)  ft0,75,«0 

15  ALPHA  m  =  ALPHA  (1  )*OALPHAl  11/2. 

Bf TA(l)=Al PHA« 1) 

NO<> 

K!  =1 

IF  INC  -•  C- M  »  ec,*o,9o 

tie  or  S5  ,kc«* 

85  Rf  TAM)  -  ;'.T  AM  '*  rn*(  n-Y(  1  I),  (XCOR  (II -X  U  ;  I  )- i.  15  159  3 
90  SUl-.i. 

r  -  i 

C*c'  A  ■  n  ,A  r  AM  1  (  n  ,  X  i  i  I  ) 

k  (  I  )  T . v  ( 1 1  *  *  2  ♦  x  (  1  )  **.’  I 

J.  n 


MCCL=«lTe«»»*C»lSrP»#l  I 
or  95  I =1 .NCOL 
e<n=o. 

OC  95  J=1 ,NCOl_ 

95  C(I,J)=0. 

EPS1 I 11 )sALPHA(l)-0*EGA(i) -1.570796 
IF  (KCRM  500.110.100 
ICO  OC  105  I=l,KORft 

105  £PSH  ll I=FPS1 I ll )*6XP0NI I  1*1 BETA 1  I  ) -ONEGA (  1)1 
110  Or  230  1=2, *PI 
11=1-1 
KA=X8 

Kf>=C 

EPSlfll=€?Sllill 
O^EGAAl  1 )  =CjH£GM  Ili 
KM1MRII1I 

s*m=o. 

I J=l-12 

S\=SIN(ALPHAIU)  I 
CS=CCSI  ALPHA(IH) 

u  =  (x(n-xciin*csviYm-Y,mi*s9 
C  12=1,1 **2 
C 1 1 =C12*U1 

vi=<yui-yuii  i«cs-(xm-xui))*SN 

If  ( ! J-l )  500,115,120 

115  UMX(l4l)-ximi*CSMYMHi-YUlU*SN 
V2=(Y(!*i)-YlIl >1*CS-(X f Ull •>  1  III  )*SN 
GP  IC  125 

i?:  i?=(x(ii-i)-x(im*cs+(viii-n-Yiiin*SN 

v>=(Yiii-i»-Ycim*cs-cxui-ii-x<un*sN 

125  C22=G2**2 

C?l=C22*U2 
Ot-N=Cl  1*C22-C12*C2 1 
AA=(V1*C22-VZ*C12)/0EN 
eB=(V2*Cll-Vl*C21)/0EN 
L  =  C. 

0L  =  U/1C. 

C3  =  C. 

Xfi  =  X< 1 1 ) 

YH=> (III 

OC  175  J=2,ll 

C?=C3 

U=G»l«U 

X  A*  X8 

YA  =  YB 

V  =  (  AA^U^B1? )  *U*  *2 
XI'=Xtm*G*CS-V*SN 
Y f;  =  Y I  I  1)4U*SN*V*CS 
P  A  (  J ) =SCR I  l  "'9**2*v8**21 
fN=IY8*XA-X8«YA)  '  1 <A*XH*YA*Y8  « 

O^EGAA (  J )  -  Cf'EGAA  (J-l  UATAN(T^) 

C  3  = (  J. ♦* A*U*2. *6Bi *U 
OaiP  =  ATAMC3» 

Ef'Gi  ?  J) = ALPHA  I M  >♦0*1 P-0HEGAA(J)-1 .570796 
SA«  J)  =  SA(  J-D*l’U*SQrt*  U  .4.25*(C2+C3l**2) 


[► 

(KC«M 

5  JO. 1 75,1 3 J 

1  3 

1  J-l  1 ) 

155,1 35,500 

i  35 

f  P 

( I J-l) 

500, 155,140 

14  “ 

Or 

1  ,  KCPN 

1h9 


I 


I 


1 


I 


IF  II-NCCR(K))  150.I45.IV0 
145  KB*K 

GC  1C  155 
15J  CONTINUE 
155  Of  WO  K*1,K0RN 

IF  IX-XA)  160.157,160 
157  BETA(K)*ALPHAIIl)+ATAN(V/U) 

GC  IG  170 

16C  IF  IX-XB)  165,162. 165 
it. 2  BFTAf X t  =AiPHA{  1 1  )+0AL2-3. 141593 
GC  IG  170 

If; 5  ANUP=  I YB-YA ) * ( X A-XCOR IX)  l-CXB-XAl* IVA-’.'CGRIX)  ) 

DCN=f XB— XCORIX) ) *(XA— XCORIX) I-MYB-YCORIK  I )*IYA-YC0R1X ) ) 
6EIAfX)=BFTAIX)*ATANIANUH/DEN) 

170  EPSH  J1 *EP51 ( J)*EXPGNIK)*(BETA(X)-OHEGAA( J ) ) 

175  CONTINUE 

R{ I )=RA( 11) 

ONEGA If) * OMEGA A (11) 

SIII-SIID  +  SAI’I) 

ALPHA! I ) = ALPHA  III )*0 ALP 
IF  IIJ-I)  500,185.180 

180  IF  INSYP1  182,182,181 

181  IF  II-NPT)  182,185,500 

182  BETA!  KB)- ALPHA!!  )+DALPHA(KB) 

ALPHA! I )«8ETA|KB) 

185  12*1 

IF  IKCRN)  500,205,190 
190  Of  200  X* l, KORN 

IF  (I+l-NCGRIK))  200,195,200 
195  I >= 1-1 

GC  TC  205 
20G  CONTINUE 

IF  INSYN)  205,205,201 

201  IF  IW1-NPT)  205,202,205 

20 2  IF  INCORID-l)  205,203,205 

2C3  12-1-1 

205  CONTINUE 

OC  230  J=2,ll 
OS=SA! JI-SAIJ-1) 

RK 1 =1 . 

RK2=1. 

DC  230  K=1,NTERP 
AK-K 

OPKl *AK*OPEGAA ! J-i ) 

QPK2=AK*CPEGAA! J) 

RP1=RK1*RA| J-l ) 

RK2=RK2ARA! JJ 

SKRWSINI0HKD/RK1 

SKR2=SIN(rHK2)/RK2 

B(K)=BIK)*.5*IEPS1 ( J)ASKR2^EPS1IJ-1)*SKR1)*DS 

R  L 1 =RK1 

RL2=RK2 

DC  210  L=K,NTCRM 
AL*L 

SLRi=SINIAL*OPEGAA!J-l) J/RLi 
SI R2=SIN«AL*CPEGAA( J) I/RL2 
RLl-Rll'RM J-l ) 

RL2  =  RL?''RA!  J) 

21 J  CIK,L)=C(KIL),.5*!SKR2*SLR2*SKR1*SLR1)*DS 
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IF  (NSW)  500,230,215 
215  K1=MERP*K 

CKR1=CC S (CHKI J /RKl 
CK82=Cf S1CHK2I/RX2 

B(M)=BCKI»-.5vCEPSl  I J)*CKR2»  EPS  1  f  J — 1  l*CKK I  )*DS 
RLJ -l. 

RL2=1. 

DC  225  L=1 *  STERP 
AL=L 

Ll=M£RP-*-L 
RL1=RLI*RAC J-l) 

Rl2=RL2**A( J) 

CLRI=C0SIAL*CPEGAA(  J-DI/RLI 
CLR2=C0SI AL*CPEGAA( J) I/RL2 
C(I'»Ll)=C(K,Ll  )-.5*( SKR2*CLR2*SKRI*CLR1  1*0  j 
IT  <l-K»  225,220,220 

22  j  Cm, LI  J=C(K1  ,  LI  )*-,5*(CKR2*CLR2+CKRl*CLRl  )*0S 
225  CCMINUE 
230  CFMINUE 

OP  235  I =2»NCCL 
11=1-1 

DC  235  J=1,I1 
235  ClliJhCU.il 

CALL  HATlNVIC.NfrL.A) 

DC  240  1=1, NCCL 
0(1 >-0. 

DC  240  J=l,NCOL 

240  om=cm+A(i,j)*BU) 

KA  =  C 

PHI (1)=0. 

PhIA=0. 

IF  (KCRN)  500,255,245 
245  IF  INCOR(l)-l)  255,250,255 
250  VCL(l)=C. 

VFL2=0. 

KA=l 

KR=1 

Gr  IC  282 
255  VFL2=l./RIl» 

IT  (KORN)  500,2 10,260 
260  DEN=X(l)**2*Y(l)**2 

Or  265  1=1, KORN 

APP=( (l.-IXCORII )*X(1)*YC0R(I )*Y I l ) )/DEN )**2+ 

1  ( (XCORd )*Y(l)-YCOR(I )*X(1) )/CEN)**2)**(EXP0N( I)/2. ) 

265  VH2  =  VEl2»APP 
270  EXPMO. 

R  J=  1. 

DC  280  J= l , NTEKP 
A  J=  J 

RJ=HJ*R( 1 ) 

EXP\=EXPMD(  J)*CCS(AJ*0MEGA(1  )  J/R.) 

IF  ( NSYP )  500,280,2  F5 
275  J  i  =M£RP+  J 

£  X °N  =  E X PN  +  l)  (  2  j  I  *SIN(  AJ*CMEGA(  1  )  )/Rj 
280  CC  MINCE 

Vn  2  =  VFL? ♦  :  XPN) 

VEL  v  >  !  =  V  C  I .. 

28?  I?=l 

Of  40  l  ,  *>  '  T 
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11=1-1 
I J=I-I2 

$N=SIN» ALPHA!  ID) 

CS=CCS'AI PHA(Il)) 

ui«(x>i i-xt m  >*c$+mn-Y!iin*SN 

C 12=LI**2 

C11=C12*U/ 

Vl  =  I Y(  n-Y(Il)  )*CS-lxm-X!Il))*SN 
IF  IIJ-1)  500,285,290 

285  ii?=(xnti)-xnm*cs*(Y(i*i)-Yiin  >*sn 

V?=!Y(I*1)-Y!I1)  >«‘CS-!X!IU)-X!I1)  )*SN 
GC  rc  295 

29  3  U?=!X!I1-1)-XI11)I*CS+IYII1-1  )-Y(Il))*SN 

V2=lY(Il-l)-Y(Il))*CS-<XUl-l)-X(Iin*SN 
295  C  ?2  =L2**2 
C'.1=C22*U2 
DFN=C11*C22-C12*C21 
AA=(Vl*C22-V2*C12)/DEN 
BR=(V2*C11-V1*C21)/DEN 
L=C. 

C3=C. 

DL=L1/10. 

DC  367  J=2,ll 

C?=C3 

U=L  +  Dl) 

C3=!3.*AA*U+2.*BB)*U 

V= ( AA*U+36 ) *U**2 

0S  =  DU*SCRT(  J  .  +  .25*(C2+v.3)**2) 

XF*X(Il )+0*CS-V*SN 
YB  =  Y(  IU+U*SN+V*CS 
VFL 1=VEL2 

VFL2=1./SCRT(XB*^2+Y8**2> 

IF  IKCRN)  500,335,300 
300  If  (J-ll)  325,305,500 
305  IT  (IJ-l)  500,325,310 
310  DO  320  K  =  1 »  KORN 

IF  ('-NC0R1KI)  320,315,320 
315  K A=-l 
Kvl=  K 

GC  IC  350 
320  CONTINUE 

IF  CNSYP)  325,325,321 
221  IF  ( I-NPT)  325,322,325 
32 7  IT  (NCORm-1  )  325,323,325 
32  5  KA  =  -1 
XM=1 

Gt;  iC  350 

325  DLMXB  +  *2tY8**2 
Df.,  330  *  -•’  1  , KORN 

AFP  =  ( ( l •  !XCCR!K)*XB*YCaR!K)*YB)/0EN)**2* 

1  ( ( XCCR!K)*YP-YCCRIK)*XB)/CEN)**2)** lEXPOYIK 1/2. ) 

330  VI  L2  =  VFL2*A8P 
335  E  XPN  =  0. 

R  K  =  1 . 

RU=SCRT(XP**2«-YB**2) 

">‘;EG  =  QATAi\i(  YO.XB) 

D(,  3<*5  K  =  1  ,  NTCRF 
AKrK 

RK=HK*RL 
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EXPMEXHN*0(K)*CCS(AK*OPEG)/RK 
IF  <NSYP)  500*345*340 
340  K1=NTERP+K 

EXPN=EXPN+D (K1  )*SIN(  AK*0PC''1/RK 
345  CTNTINUE 

VEL2=VEL2*EXP{EXPN) 

35C  IF  (KA)  355,365,360 

355  PHI  A=PHI  A+VELl *DS/  I  l.-t-EXPON1"' di ) 

KA  =  1 

GC  10  367 

360  Phi A=PHIA+VEL2*L5/ ( l.+EXP0N!KB)> 

K4  =  0 

GC  TO  367 

365  PHI A=PH1A+.5*(VEL2+VELI)*DS 
367  CONTINUE 

PHI  U)»PHIA 
VC  L  ( 1 1  —  VE  L2 
I?=I 

IF  (KCRN)  500,400*370 
370  DO  380  K=1 , KCRN 

IF  ( I ♦ I -NCCR I K )  )  380,375,380 
375  12=1-1 

GO  TC  4C0 
38C  CONTINUE 

IF  INSYH)  400,400,381 

381  IF  ( I ♦ I-NPT )  400,382,400 

382  IF  (NCORm-1)  400, 383, '*00 

383  12=1-1 
400  CONTINUE 

AF  =NS YP+ I 

Phi F=PH I ( NP T ) / ( 1 80 • *AF  ) 

WRITE  (6,402) 

40?  FliRNAT  ( 4  3H1C0HPUI  AT  IONS  FOR  S  AND  ALPHA  VERSUS  THETA.) 

WRITE  (6,405) 

405  FCRPAT ( 6HC  X.12X1HY ,12X1 HR, 12X1HS, 1 2.v  iHV,  10X5H  ALPHA,  8  X5H0PFGA  , 

l  8X5HTHET A/IH  ) 

DC  410  I = l , NPT 

Phi  (  I  )  =  PH  I  (  1  )  /  PH  I F 

ALPHA( I ) =5  7.295 78* ALPHA!  I  ) 

OFEGAl I ) =5  7.295 78*OPEGA(  I  ) 

410  WRITE  ! 6,41 5)  X(I) ,Y( I ) ,«( I ),S( I ),VEL ( I ) , ALPHA! I ) , OMEGA!  I  ) , PH  I ( I ) 
415  FCRKATUH  , 9EI3.5) 

CALL  PAPPl 
CALL  PAHP5 
GC  >!C  1 
500  STOP 
END 


SUBROUTINE  PAPP1 

DIPrNSICN  ALPHA ( 100), THETA! 100 ),S( 100 ) , NCOR ( 20 ) , A ( 20, 2 ) . C ( 2 i  ,2 > , 
IDALl'HA  (20) ,  SNNi  (  19  ) ,  SNN2  !  19  ) ,  CSN1  (  19  ) ,  CSN2  (  19 ) ,  T H  (  22  i ,  0!  20,2) 

CCFNCN  NP) , NSYP, NT ERH  ,KURN, NCCR, RC , DALPHA , THETA, A, ALPHA, S 

00  15  [ = 1 ,NP I 

THE  I A  l  I  )=. 01745329*  i'HFTA!  I) 

15  ALPHA!  !)=. 01  745329*ALPHA  <  1  ) 


IF  SNSYP)  500,20,25 

2C  IM!1  TA(NPT*1  )*6.283185-7H£TACNPf-*l  > 
t  '.PHA(  NPT+1 1  =9,424778-ALPHA(NPT-l } 
S5NPT*n=2.*S!NPT»-S<NPT-l> 

GC  IC  40 

25  T!i£  TAINPT >11*6,2 83 185+THETA12) 

IT  INCCR(ll-i)  30,35,30 
30  ALPHA! NPT* 1 I *6 ,2 83 185* ALPHA (2 ) 

Gf  TC  38 

35  ALPHA!NPT  +  1  >=6. 283185*  ALPHA  !2)-CAt.PHAm 

38  S(NPT*1)=S(NPT)*S(2) 

40  NTEPPl=MERW-l 

CS2*C0S ( ALPHA! l)-THETA(l)  i 
SN2=SIN( ALPHA! 1 ) -THETA! 1 )  J 
DC  *5  I-1,NTERH1 
41=  I 

AN0=ALPHA!1I*AI*THETAI1) 

CSN/! I) =COS!ANG) 

45  SNN?m=SIN!ANG) 

OL'  50  t*l,NTERP 
DC  5C  0  =  1  ,? 

5C  A! ! -  J! =0. 

I  T  =  C 
I  A  =  t 

IF  1KCRN)  500,30,5: 

55  IF  !NCCR i l ) -1 )  00, 6C  ,80 
60  ir=i 

EXP1*3»141593/(3»1415?3*DALPHA(1)J 

s^stn 

TM0-THETA( 1 ) 

All  =  (S«2)-$m»**EXPl 
A12=(St2)-S(l) )**2 
Bl*lHfcTA(2)-THETA(l) 

IF  INSYPi  500,65,70 
65  A21=-($(1)*SI2) ) **EX  PL 

A22 - !  S  ( L  )  *S ( 2 ) )**2 
B2=-THETA(2)-THETA(1) 

GO  TC  75 

70  A21=-(Sm  +  S(NPT)-S(NPT-l  H**EXP1 

A??  =  <  S!  L)*S(NPT)-S(NPT-1 )  1**2 
B?=-THFTA ( 1 ) - tHE: f  ( NPT ) *THET A ( NPT- 1 ) 

75  0EN  =  A1 1  *A22-A> 

C1=(A22*81-A12*B2)/0EN 
C2=(Ali*62-A21*Bl)/CEN 
80  DO  2C0  1*2, NPT 

IF  1 1 T »  5C0  ,90 , 85 
85  l  T  =  C 

GO  TC  120 

90  IF  (KORf'I  500,110,95 

95  OL  IC5  J=1 , KORN 

IF  (NfOR(J)-I)  105,100,105 
ICO  I T  *  1 

EXP  1  =  3.  141593/! J.141593+DALPHA! J> ) 

GC  TC  115 
105  CCNTINUC 
HO  E  XP  1  =  l  . 

ii5  mi  =  ( si i*i i-n n >*ftExpi 
A12  =  (S( 1*1 ) -S(  I) 1**2 
B  1  =  1HE  T  A  l  I  ♦  i  )  -  T H E  T  A  I  I  ) 

t  14 


A2i=-ism-su-m**Expi 
A22  =  IS(II-S(I-1H**2 
B2* THETA (1-1 I-THETAI I ) 

se=  sc  1 1 

THO=THETA(!) 

DfN=All*A22-A12*A21 
C 1  =  C  r ?2*B1-A12*82)/D£N 
C2*l A1 l*B?-A2i *B1 )  /OEN 
120  I AB=G 

IF  C I Ai  500,130,125 
125  I  A s C 
I  AB  =  1 

or  TC  160 

130  If-  (KCRN)  500,150,135 
13,  Dr  145  J*l ,KCRN 

IF  tNCOR  1 .11— I  —  1 )  145,140, 145 
140  I  A  =  1 

A L2 “ALPHA 1 1 ♦il-PALPHAI JI 
GC  TC  155 
145  CCN 1 1  NllE 
150  AL2=ALPHAU+n 
155  si  =  sm 

ALC=ALPHA(I ) 

All=S(I*l)-5(I) 

A 12=A1 1  *’>2 
Bl*AL2-ALPHAII» 

A?1=S(I-1)-S(I) 

A22=A21 **? 

B2«ALPHAU-1)-ALPHAI  n 
DEN=All*A22-A12*A21 
C3«<A22*81-A12*B2)/0EN 
C4»(A11*B2-A21*B11/0EN 
160  AL2~ALPHA( 1-1 ) 

TH2=THETA( 1-1) 

SA*S(I-l) 

o$*fsm-s<  i-i  n/io, 

DC  165  j“?,ll 
TH1 =TH2 
SA*SA*DS 

TH2=TH0*S1CN(C1,SA-S  )*ABS(SA-S0|4*EXP1+C2*(SA-S0)**2 

AL2=AL0*CJ*(SA-S1)+C4M$A-SU**2 

SM  =  SN2 

CSl“CS2 

ANG-=  AL2-  TH2 

SN2  =  S I N  C ANG ) 

C  S2  =CGS  C  ANG  > 

A  ( 1 , 1 )  *A  ( 1 , 1 )  +  ( SN2+SN1 ) *DS/2 • 

A  ( l  ,2)  =  A(l,2i-*-(CS2+CSl)*0$/2. 

K 1  =  1 

on  165  K  =  1 f  NTCRH1 

Kl=Kl+l 

«K  =  K 

AfjG=AL2  +  AK*TH2 
SNM(K)=SNN2(K) 

CSMIK)=CSN2(K) 

SNN2 ( M  =  S I N  C ANG i 
C  5N2 ( K ) =CCS ( ANG ) 

A(Kl,i:  =A(K1,1  )♦  (SNN2IKMSNN1 (K)»*CS/2. 

165  A (XI, 2 1 =AtKl,?)-»CSN2IK)+CSNl CK  > )*CS/2. 
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IF  (IAB)  500,180,170 
17C  ANG=ALPHA( I  ♦l)~THETA(I»l) 

CS2=CGS( ANG) 

$N2=SIN(ANGJ 
0t:  175  K=l,NTERHl 
AK  =  K 

ANG=ALPHAII+l)-»AK*TH6TAU*k) 

C  SN2 ( K ) -COS ( ANG ) 

175  SNN2m=$l*IANG> 
leo  CCN 1 1  MJE 
200  CONTINUE 

IF  INSYPJ  500,215,225 
215  RC=A(l,l)/3. 141593 

A ( 1 ,1 ) *G» 

All  ,2)=0. 

PIRC=3.141593*RC 
00  220  I =2  »NTERP 
A ( I  ,  1 ) = A ( 1 , 1J/PIRC 
220  A(I,2)*0, 

GC  TG  235 

225  n:=AU,l)/6. 283185 

A!l,l)=0. 

All,2)=0. 

PIRC-6.283185*RC 
DO  230  I =2,NTERP 
00  230  J  =  1 , 2 
233  All  «J)=A(l,J)/PIRC 
235  D(  240  1=1, NTERP 
00  240  J  =  l,2 
Dll  ,J)=0. 

240  CIIM.JI-0. 

C<1,1)=1. 

Cl 1,2)*C. 

If  IKCRN1  500,285,245 
245  00  280  1=1, KCRN 

IF  INCORUU  500,280,250 
250  NSYP1 =1 

If  INSYPJ  500,255,270 
255  IF  INCOR<n-l»  500,2  70,260 
260  IT  i.\COR(I)-NPT)  265,270,600 
265  NSYF1-2 
270  |A*NCORII> 

ANG=THE T  A 1 1  A ) 

S  N’  =  -  S I  N  C  ANG) 

CS=CCSI ANG) 

DC  275  J=i ,NSY81 
SN=-5N 

EXPI=DALPHAm/3. 141593 
CrEFR=l. 

CCEF 1=0, 

or  172  k=i,ntep> 

DC  172  1=1,2 
172  CIM1,L)=DIK,L) 

OC  275  K  =  1,MERP 
AK  =  K 

CCEFl^CCEFR 

CCEFR=-EXPI'UCOtFl  *C$-CGEF  l*SN)/AK 
CC  EF I =-F  aPI *  I COEF I *CS  +  CGEF 1*SN ) / AK 
EXP!-tXPI-l. 
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N1  *KT£RM-1 
NA*N1-K 

DC'  275  K*K,NTEKW 
Nl*M-l 

0(N1,1 j*0(Nl,l)«C(NA,l)*C0EFR-C(NA,2)*C0EFI 
D(M,2)=D(f<l,2)»X(NA,l)*C0EFI*C(NA,2)  COEFR 
275  NAxKA-1 
283  CONTINUE 
285  A  ( 1 , 1 ) =-D  C l » l J 
A( l ,2) *-0(1 ,21 
Dr  290  I=2,NTERM 
Ali,lh4II,l)-CI|,ll 
A(I,2ixA||t2)-D(If2l 
Dr  290  J=2  y I 
J1=I-J*1 

All  ,lJ=A(I,l)-0(  J-1,1)*A(J1,1)+0(J-1, 2)*A(Jl,2) 

290  All ,2)=A(I,2)-0( J-l, l)*A( Jl,2 )-0( J-1,2)*A( Jl, 1 I 
WRITE  (6*295) 

295  F  PR  A*  AT  (A2HISECT  ICN  MAPPING  BY  NUMERICAL  INTEGRA?  I0N./A9H0 
IX  Y  THETA) 

RFAD  (5,305)  X,Y,THO»THF»DTH 
3C5  FtRPAT ( 5F6«  2 ) 

0  TH=.01 745329*DTH 
THC=»01  745329*TH0 
THF  =• 01 745329ATHF 
NSEG=1 

TH(NSEG)=THO 
IF  (KCRN)  500,335,310 
;  OC  330  1*1, KCRN 

IF  (NCOK ( I ) )  500,330,315 
315  I A*NCOR ( I ) 

IF  (THETA(iA)-THOi  330,500,3 2? 

32C  IF  (THF-THETA( IA) )  335,500,325 
325  NSEG=NSEG*1 

Th(NSEG)=THETA(IA) 

330  CONTINUE 

IF  (NSYP)  500,331,335 

331  DC  337  1^1, KORN 

IF  (NCOR(I)-l)  337,337,33 2 

332  IF  (NCOR( ! )-NPT)  333,337,500 

333  I A=NCCR ( ( ) 

THT=6~283185-THETA(IA) 

IF  (THT-THO)  337,500,334 

134  IF  ( THF-THT )  335,500,336 
.,36  NSEG=NSEG*1 
TM( NSEG)=THT 

33  7  Cr.NHNUF. 

?  35  TH(NSEG*l)'-THF 
TM2=TH0 
DEL  =  10, 

IF  (NSEG-1)  500,350,340 

34  DC  345  1=1  ,  NSEC 
DfLl*(TH(l+l)-TH(I))/3. 

345  DPLiAPINl (DEL, DELI ) 

DEL=APIN1 (DEL,. 0349066) 

350  DC  385  1=1, NSFG 

NPSEG=( TH ( I +1 ) -TH ( I ) )/OTH 

NPSEG=NPSfcG+l 

P5EG=NPSEG 
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AI*C. 

IF  (I-l)  700,360,355 
355  AI*AI*1. 

36C  IF  ( I -NSEC >  365,370,500 
365  AI*AI*l. 

370  0I*ITHCI»1 >-TH( 1 )— AI*0EL)/PSEG 
DC  385  J-l «M*SEG 
IHI-IH2 
TH2=TH|-*D1 

CALL  PAPP(THl,TH2,l.,l.,X,Y,l) 
WRITE  (6,590  X,Y,TH2 
IF  ( J-NPSEG)  385,375,500 
375  If  (I-NSEG)  380,385,500 
380  ThI*TH2 

TH2=-TH1*2.*0EL 

CALL  PAPP(THl,TH2,l.,l.,X,Y,3) 
WRITE  (6,390)  X.Y.TH2 
385  CrWTINUE 
390  FORPAT ( IH  ,3E17.5) 

500  RETURN 
END 


SUBROUTINE  PAPP(TH1,TH2,R1,R2»X,Y,KOOE> 

C 

01  PENSION  NCOR (20) .OALPHA (20 ) ,THET A( 100 ) , A (20, 2 ) , RA( 1 1 ) , THAI  1 1)  , 
1  API.  (11)  ,ANU  (II) 

C 

CCPPCN  NPT,NSYP,NTERN, KORN, NCGR.RC, OALPHA, THETA, A 
C 

IF  IK0DE-2J  5,20,35 
5  OC  10  1=1,11 
10  RA ( I ) =R l 

0TH=(TK2-TH1)/10. 

THAI1I-TH1 
OC  15  1=1,10 
15  THA(Id)  =  TKA(I)*CTH 
GO  TG  *5 

20  00  25  1*1, 11 

25  THA ( I ) =TH1 
R A (  l  )  =  R  l 

dp=ir;!-rii/io. 
or  30  1=1,10 

30  RA( I+1)*RA(I)4DR 
Gf  IC  *5 

55  C=2.*SIM  (TH2-TH1IM.) 

OtL=( IHl-TH2-6.2»3185)/4. 

UCEL=-0EL/5. 

THC  =  (THlMH2)/2. 

RA(  1  )  =  1. 

RA ( 1 1 ) =1  * 

THA ( 1 ) *  TH1 
THA(11)*TH2 
OC.  AC  1-2.10 
Of  l=OEL-»DCEL 
Cf)=CCS(  DEI  ) 

SO* SIN (CEL) 

RAM  )  *SCR  T  (  l.  +  C*(C  +  2.*CDI) 

ANG=C*SC/(l.*C.*CC) 
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40  THAU)*THO«ATAMAKG> 

45  0C  ICC 

«CltKI*KC 

AMIKl^O. 

If  IKCRM  5C0, 90,50 
50  01  s5  I*1,KCRK 

IF  IKCCRfltl  500,85,55 
55  RSVPl=l 

IF  IASYPI  500,60,75 
60  IF  (ACCRUI-ii  500,75,65 

65  IF  (KCORIM-KPT)  70,75,500 

70  RSYR1-? 

75  I A=kCOR ( I ) 

AI*-1. 

ExPK=L»ALPHAm/6. 281185 
OF  HO  Jsl.NSYPI 
A I =-AI 

C£kG~AI ♦THEIAI lAt'THAf Kl 

SK-SINICANGI 

CS=CCS<DAkG> 

SN=-SN/RAIK) 

CS=l. -CS/RAtKJ 
K  =  (C5**2*SN*A2IAAEXPFi 
A*G=2.*EXPN*ATAMSN/CSJ 
SN=R*SI M  ANGI 
CS=RaCOS( ANGI 
A*'1=APU(KI 

AJ«L(XI=AP1*CS-ANUCK|*SN 
80  ANG(K)=Af’l«SN*AAU(K)*CS 
85  CTMINUE 
9C  Rr*KA(KI*COSITHl  /») 

AJP=RA(K> ♦SINIThA' Ki ) 

R\=1./RA(K) 

A**=-l. 

DC  55  I=1,NTERP 
R\sRN*RA(K) 

A*=AN*1. 

AnGN=AN*THA(K) 

CS=CCS(  ANGM/RN 
SN  =  SI N( ANGN ) /RN 
RE^.^F+A  ( I  ,1I*CS*A(I,2)*SN 
95  AiF-AIH+A(I,2)*CS-A(I,n*SN 
AK1=AHU(K ) 

AKLIKI  =  AMI*RE-ANUIK)*AIP. 

ICO  A\L(K)aAPl*AIP>ANU(K>*RE 
IF  (KCDF-2)  105,115,105 
io5  or  no  ixi.io 

OTH=( THAI Itll-lhAI I ) )/?. 

X  =  X-(ANL(  1*1  KAMI  I  ))*DTH 
110  Y  =  Y*(AKb( I ♦ 1 1 ♦ AHU( I) )*DTH 
115  IT  (KODE-l)  5:i0, 500, 120 
120  or  125  1=1,10 

DR=CRA(!*l)-RMI))/2. 

X  =  X*  I  APU 1 1  ♦  1 )  /  R  A  ( I  ♦  1  >  ♦  APU  1 1  I/RAIM  )*DR 
125  Y  =  YM  ANlllFl )  /RAM  +1  )«  ANUI  I  )  /  «  A  I  I  )  )*DR 
5C0  RCTCRN 
ENC 
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c 


sieoaiitt  pipn 


DtrfkSICit  NCCa(2GliDUfti«(20ll!HCTM100M(28.2llALmilCC>t 
1S11GC), 9(21.21 

ccprc*  wT.nsrr.MEitf.Kcaii.iiCCKtXC.ctin-itiiCUtt.tirHi.s 

IF  CASYR1  500.5.1 2 
5  Or  1C  I  =1 .NT£*R 

1C  AC1.2M0. 

12  IF  (*CR*1  5C0.60.15 

15  Or  55  I*i.kC£K 

IF  (UCCIMin  500.55.20 
2 C  Ji*l 

IF  (KSYR1  5Gu.25.60 
25  IF  (4CCRII1-11  10.40.30 

3C  IF  <ftCCR(Il-ftPTl  35,40,35 

35  Jl=2 

4C  THtI*THE  fAf ACCRf II) 

CS=CCSf fHFTI 
SF.=-SIN(ThET1 
Or  *>0  J=L,Ji 
S4=-54 
B ( l .1 1 =1 • 

BI1,21=C. 
or  45  K=i.NT£RW 
Or  45  L=1 ,2 
45  B(K*l.L)=Af  K.LJ 

RE*1. 

AP*C. 

CrEFxl. 

Or  50  Kxl.NTERF 
AK=K 

CCEFx-CCFFMDALPHAI [ 1/3. 141593-AK*!. 1/AK 
RFl=RE 

RC=RE1*CS-A7*SN 
AF=RE145N‘AR»CS 
Of  50  l  =  K  ,N  TERR 
LK*L-KM 

A(l,l)=ACL,n*CCEF*IRE*B(LK,l)-AN*B!LK,2)> 

50  A(l,2)xA(L,21 ♦CCEF*( RE*B(LK,2 )♦ AH*B (LK, 1)1 

55  CTMINUE 
60  WRITE  (6,65)  RC 

65  FCRFAK27HIRA0IUS  CF  RAPPING  CIRCLE  *.E13.5> 

NTERRIxMFRP-l 
R6  =  RC 

Of  70  I=l,NIEfPi 

n*m 

RN*RN*RC 
A  I  =  I 

A  1 1  ,l)x-ACI  i,’.  )*RN/AI 

70  All  ,2)*-A(Il,>)*RN/AI 
WRIIE  56,71) 

71  F  CRFAT (28H0REAL  PARTS  CF  COEFFICIENTS.) 

WRITE  16,75)  <A(l,l),!=l,NTERPl) 

IF  (NSYP)  500,76,74 
76  Of  73  I=1,NTERP1 

73  A(  I  .21—0. 

74  ),3ITF  (6,72) 
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12  FtmrnjHotrKiuKT  pacts  of  coefficients.) 

Mil?  It.,  7^1  UII«2i,l*l>«TEUil) 

T5  FC*fa:sihg,7E13.S) 

*C«C  IS, 96»  N.CTh.THO 

55  FCR*ATII3,2F6.2) 

01H».017+5329*DTH 
Ti*C=»OI  7*->329*TK0 
IH=  IHtrCTK 
MITE  (6,*6) 

56  FrRPATUiMPAPPUG  CF  SECTION  WITH  OWNERS  RcNUYEC.I 

Milt  (6.1001 

1C--  FCRPAT(2G*  t  V) 

on  110  !*t.N 

TH=TH*0TH 

cs=ccsithi 

S^SIHIIHI 

*=KC*CS 

v=ac*s* 

«*i=i- 

or  Its  J=l.M€RPl 

AJ=J 

thk=aj*th 

cs=ccsi tm\; 

S».  =  SI*ITHM 
R*sRfc*RC 

X=X*f  Af  J,I)*C$*A(  J,2)*SM/RN 
ICS  Y=V*'AU,2)*CS-AU,l)»SNl/KK 
IIC  MIIE  (6,1  IS)  X,Y 
115  FCRXATUH  .2FI2.5) 

5C3  RtTLRN 
E*C 


StBkCCTINE  PAUNVl  A.N.b) 

01F1NSICN  A(50,501 ,e ( 50, 5G 1 ,C C5C , 50 > 

0^  1  1=1,5 
~  1  o  =  l  ,N 
°!,.J)=0.C 
i  =  i,s 
F><  !  -11*1.0 
0  2  J  =  l  ,  S 

?  o.j,n=Au,n 
0(  6  1=1  ,6 
IMC  (I,  1)125, 50-24 
50  Dr  21  12=1, N 

I F { C( 1 7 , 1 !  1 22 ,21 ,22 

21  CCM 1  MJfc 

MI  IE ( 6 , ICO ) 

100  FrSXAT  (  19I:0PATRI  *  IS  SINGULAR) 

G  '  TC  7 

22  01  2)  P=I,N 

CU,P)=C(I,R)»CIIZ,R> 

23  Bf I  ,*1=6(1 , K  > ♦ P ( 17, H) 

24  TL  =C ( i , I ) 

Or  i  j  =  i , \ 

C 1 1 , J)=cc ! , J)/TC 
3  B(  I  ,J)=B(  I.J1/TC. 
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or  t  »*»•* 

1FU-1H.M 
%  KIMI 

Or  5  l*i,% 

CI«.L)*€(K.L)-T*C(I,L) 

5  B(f,U>8U,U-(*e(!,U 

6  cruintf 

«t!U5 

7  SICE 
E*C 


f LACTIC*  CATAKISA.C5) 

C 

IF  (SKI  65,20,* 

5  IF  test  13,15*60 
1G  CATAA=3-161592*ATAMSA/CS> 

Gr  IC  ICO 

15  CATAft=l. 570796 
GC  TC  ICO 

20  IF  (CSJ  25,30.60 
25  CATAA=3.16I593 

Gf  TC  ICO 
3C  bRire  (6.35) 

35  FCRFAIUO*  OAKGLE  UNDEFINED.  SET  TO  ZERO- I 
6G  QATAN=0. 

GC  TC  ICO 

65  !F  (CS1  10.50,55 
50  CaTA*=6. 712389 
GC  TC  ICO 

55  QATAN=6.283185+A7AN(SN/CS) 

Gr  IC  100 

60  CATAN=ATAM  SK/CS) 

100  RCTLRK 
END 
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racstun  miS(IKfUT,Cumir,'AKy'HfUTtTtfE*>3UrrijTtTtfE2l 
c 

c  •••  mi*  program  for  ccrniNEo  strip  nethoc  amo  iohooification  •** 

C  IGECP  *  1  FOR  Mk6.  IGEG  *  2  FOR  MOT 

C  NCOIN  *  0  SKIP  3C  NOTIFICATION.  NODIW  *  1  PERFORM  30  MODIFICATION 

C  JSTCPsNbPBER  CF  ITERATIONS.  IDIS*NUNBER  OF  LArERS  IN  30  M3DI-.CAT 
C  J?Ck£A*0.  POKER  EFFECT;  JP0WEA*1.  POKER  3%. 

C  IRECI =0.  RECTANGULAR  KING;  IRECT*1,  NONRECT ANGULAR  KING  C*  BO 
C  (FCRCE*C.NO  FORCE/ NONE NT  CONPU1EO  1 FORCE* 1. FORCE /NOR ENT  CONPUTEO 

C 

DIMENSION  UJKXt 16,40) ,VJHK(16.40),KJHM 16.40). APART! 201.RBHM  7. 16 i 
1  .AHK( 12.16) «VXX( 1.16, 40). VTYI 1.16.40). OMt 301 

DIMENSION  BHKI12.16) 

DIMENSION  CPI 16,40). OR DX( 16) 

OIMFWSICN  XI4.18.40) ,Y (4, 18,40 I ,214, 18.401.SIf 40. 203.CSI4C.2C) 

Cl  PENSION  0X116,40) .CYI16.40), OZf 16,40); AC1150) 

C 

CCPrCN/BLKHKI/NSTA.N.NFGUR.NSYH.ITAPE 
CCMPCN/BLKHK2/IIJHK.YJHK.U  JHK.  APART  ,RBHK.  Z 
CrPPCN/BLKHK3/£I ,CS 
C0PPCN/BLKHK4/CRCX 
CCPPCN/8LKHK5/UJ. ALPHA, BETA 

C0PPCN/BLKKK6/C ’ 

C0PPCN/BLKHK7/X 
CCPPCN/8LKHK8/Y 
CCPPCN/BLKH9/CZ 
C0PPCN/8LKH10/0X 
COPPCN/BLKHll/UY 
C0Pt*CN/BLKM13  /VXX 
CCPPCN/BLKH14  /VYY 
C-^PPON/BLICHIS  /NOOKN.IREPET 
C0PPCN/BLKH16  /DM 
C 

I  TAPE  *  ? 

101  CONTINUE 

READ  *5,501)  1 GECM,^OOI N, JSTOP, I DIS  * JPOWER, 1RECT , (FORCE 
IF  (EOF (5) )  999,102 
IC2  CONTINUE 

OG  1113  K=1 • 16 
DC  1113  J=l ,40 
V7XI  1,K,J)*0.0 

1113  VYY(1,K,J|*0.0 
DC  1114  K  =  l  ,30 

1114  DWM<l*0.0 
N0C>N*0 
!REPET*1 

IF  ( IGECP-2 )  1,2,20! 

1  WHITE  (6,601) 

601  FORMAT  (1HI,52X, 16HM ( NG  CUMPUT  AT  I ON/5 IX, 20H****** ****♦• ••**♦♦♦♦ ) 
WRITE  (6,610) 

IF  (MCDIN)  60,60,61 
60  WRITE  (6, nil) 

611  FORMAT  (l;i0,15X,22Hl.  SEG^T  METHOD  ONLY) 

G(  TO  3 

2  WRITE  (6,602) 

602  H'RMAT  (IH1  ,52X,16HBCDY  COMPUTAT I0N/51X, 2CH******************** ) 
WRITE  (6,610) 
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61C  FCRPAT  (1H0.///10X.34H0PTI0NS  SPECIFIED  FOR  THIS  RIM  ARE/) 

If  IPCOINI  60.60*61 
61  WRITE  (6*612)  JSTOP 

612  FCRPAT  (IH0.15X.36HI.  THREE  OIH0ISIONAL  MODIFICATION  C*',I3,3X, 

19HI TERATION) 

3  RFAC  (5*502 )  NSTA*N«NF0UR.NSYM*MTH£T*UJ.ALPH',BETA 
IF  (JPCKER)  62,64*65 
62  W^ITE  (6*613) 

613  FCRPAT  (ltiO.15X.26H2.  PCW'R  OFF  CONFIGURATION) 

GC  TC  70 

64  WRITE  (6*614) 

614  FCR*Ai  (1K0.15X.20H2.  POWER  EFFECT  ONLY) 

Gt  1C  7C 

65  WRITE  (6*615) 

615  FCRPA'  (IH0.15X.25H2.  POWER  ON  CONFIGURATION) 

70  WR11E  (6*616) 

616  FORPA  ( 1H0*///53X,14H*« INPUT  DATA**) 

WRITE  (6,61 7)NSTA.N,NF0UR.NSVP.NTHET*IRECT*IF0RCE.UJ. ALPHA. BETA 

617  FCRPA*  ( IH0.5X  *5HNSTAx,  1 3*3X*  2HN**  13*  3X,  5HNF0UR*,  13.  3X,5HNSY(W**  12* 

1  3X.6HPTHET*, 13* 3X.6HIRECT3* 13*  3X* 7HIF0RCE=» I3*/6X*  3HUJ*»F7 

2  . 3, 3X*6HALPHAs* F8.3,3X,5HBETA*,F8.3) 

Cti  2C  I  -1  *NSTA 

RFAO  i 5*503)  APAPT(I),RBHK(1, l).ORCX(I) 

WRITE  (6*628)  A? ART ( I ) , RBHK ( l , I ) , CRCX ( I ) 

628  FCRPAT  ( 1H0.2X ,8HSTAT>0NZ»F12.6, 3X, 7HRADIUS=,F 12.6, 3X.6HDERI V*. 

1  F  12.6) 

8FAB=  ABS (BET  A ) 

IF  IMVM  202*5.6 
5  IF  (BE  AB-0.0C1 )  1131,1131,1132 

1131  NTHET-  PTHET*1 
GC  TC  1133 

1132  NTHET-  PTHET 

1133  RFAO  (5,505)  ( AHK( J,I),J-l,N) 

WRITE  ( 6  *bl 6 )  I  * (AHK( J, I ) ,  J=1,N) 

613  FCRPAT ( IHC,2X»36HGE0PETRY  COEFFICIENT  *A*  FOR  STAT ION,! 3/( 6E15.6) ) 
GC  TC  8 

6  NTHET  *  PTHET 

READ  5  r 505 )  ( AHK ( J , I ) , BHK ( J. I ) *  J*l,N) 

WRITE  (6,619)  1  *  ( AHK  ( J  ,  I  )  ,  BHK  (-1*1  )  ,  Jr  1 ,  N  ) 

619  FCRPA"  ( IH0.2X  .41HGECPETRY  COEFFICIENTS  *A*,*B*  FCR  STATION, 13/ 

l  (6E15.6) ) 

8  IF  (J’OWER)  12*11,11 

11  READ  (5,505)  (Uu  (K(I,J),J«l, NTHET) 

RFAC  (5,505)  (VJHK( I , j) , J*l, NTHET » 

READ  (5.5C5)  ( WJHK (I ,J),Jxl, NTHET) 

WRITE  (6,62  0  >  I , (UJHKI I, J  ) , J* l , NTHET ) 

WRITE  (6,621)  I,(VJHK(I,J),J*l,NTHET) 

WRITE  (6,622)  I  ,  (W  JHK  1 1 ,  J  )  t  J=»  l.NTHET  ) 

620  FCRPAT  ( IH0.2X .33HVELCCITY  COMPONENT  *U*  AT  ST AT  I  ON, I 3/( 6E 1 5. 5) ) 

621  FCRPAT  ( IHG,2X,33HVEICCITY  COMPONENT  *V*  AT  ST AT  ION, I 3/( 6E 15.5) ) 

622  FCRPAT  (1  HO  »2X, 3  3H  VELOCITY  COMPONENT  *W*  AT  ST  AT  ION,  I  3/  (  6E  1 5.5)  ) 

GC  TC  20 

12  OC  15  J»l, NTHET 
l!  JH K  ( I  ,  J )  *  0. 

VJKK. ! , jj  r  o. 

15  W  JH M  I  ,  J )  *  0. 

20  CCMINUE 

OC  900  Kx 1 , NS  f  A 

R3HK ( 2  »  K ) =  1.5*RBHK(I,K) 


)  24 


OC  905  1*3,1DI$ 

*1*1—2 

Af=AI*RBHK<l,X) 

905  RAHKII «K)=RBHK(2«K j >-*1 
930  CONTINUE 

IE  (NFGUR-Ni  800*805,8; 

800  NFCL*  N 
60  TO  801 
805  NFCL*  NFGUR 
8CI  IF  (NSVN)  202,841,842 

841  IF  (BEAB-0.001 )  837,837,  <42 
837  NT*2*NTHET 

GC  TG  843 

842  NT=NThET 

843  AN*6.283i85/FLCAT(HT) 

00  835  1=1, NT 
AI*I-1 


835 

1220 

1221 

1222 

840 

845 

810 

846 

84  7 
848 


1220, 1221, £220 


AC( I)=At*AN 
ANG*AN*AI 
SI ( I ,1 ) =S!N( ANG) 

CSI I,1)=CUS(ANGI 

sm,2»=2.o*siu,i)*csii,n 

CSIC ,2! =1.0-2.0*si (1,1 1**2 
NTEST1 *HFCU/2 
NTEST2*(NF0UM 1/2 
IF  (NTEST1-NTEST2) 

NCCF1=  NFCU-l 
NCCF2*  NFCU 
GO  TO  1222 
NCCFl*  NFGU 
NCCF2=  NFCU-1 
OC  840  J*4,NC0F1,2 
00  840  1=1, NT 

CSI I , J| =CS( I ,2 )*CS  C I , J-2J-SI I I,2)*SI ( I, J-2 1 
OC  845  J=3 , NC0F2 ,2  '  ' 

00  845  1*1, NT 

1,1  ,*CS(I»J"U~Sl<I,l>*sni,J-l) 

IF  I IGECN-2 )  810,815,201 

IF  URECT)  201,846,847 

NNN  =  1 

GC  TC  848 

NNMNSTA 

or  850  K=l,NNN 

OC  850  I=1,I0IS 

on  850  J=1 ,NTHET 

AA=RBHK(I,K)*(AHKI1,K»*CSU,U  ♦BHK(1,K)*SIIJ,  1)) 

BH*R8HK( I ,K)*{ AHK ( 1 ,K)*S! I J, 1)  ♦BHKI 1,K )*CSIJ,  1 1 ) 


♦AHKI 2,K ) 
+BHKI 2,K ) 


OF  855  NS=3,N 
U*NS-2 


RFV=REV/R8HKi  I  ,K.) 

AA=AA  ♦REV*{AHXINS,K)*CS< J,LL) 
855  BR  =  0B  ♦  REv'"<-AHK(N$,K)*$T  5  J,LU 
I( I »K, J)1 AA 
850  2(1 ,K,J»=BB 

on  860  K=1,NNN 

DC  660  J= 1  *  NTHET 


♦  BHK(NS,K)*SI1J,LL  )) 
♦BHK(NS,K)*CS( 
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AD*RBHK(l ,K)*(-AHKtl,K)*SI(J,l)  +BHK( 1,K )*CS( J 4)) 

BO*RBHK ( I ,K ) * ( AHK ( 1 , K) *CS ( J« 1 1  -BHK ( 1,K |*S I ( J.  1 ) ) 

RCV*1.0 

OC  865  ND=3,N 

CD*KD-2 

rev-rev/rb;..  < i ,k> 

AP*A0  ♦REV*(-AHK(ND,K)*SI(J,NO~?>  +  BHK (NO,K )*CS (J ,ND- 2 ) **CO 
865  BD*80  -REV*(  AHK(ND,K)*CS(J»NC-2)  ♦BHK (N0»K )*S I l J»ND-2) )*CD 
DX( K, J) *AD 
860  DZ(K,J)*BO 

IF  (NNN.NE.l)  GC  TO  856 
OC  857  K*2»NSTA 
OG  857  1*1, 1015 
DC  857  J*l,WTHET 
X(I ,K,J)*X(I,l,J) 

857  III  ,K,J)*Z(I,1,J) 

DC  858  K=2,NSTA 
DC  858  J*1,WTHET 
DX( K, J) =DX(l, J) 

858  DZ(K,J)*DZ(1, J! 

856  NSTA2*0 

710  N$TA1*NSTA2*1 

NSTA2*MIN0(NSTA,NSTA2+4) 

WRITE  (6*  702 ) 

WRITE  (6.P3)  ( APART  ( I)  ,  I*NST  A1  ,NST  A2 ) 

WRITE  (6,704) 

ATHET*  360.0/ FLO AT (MTHEf ) 

DC  715  J*1 , HTHET 
TE J* J-l 

THEE*TE J*ATHET 

715  WRITE  (6,705)  THEE , ( X ( 1 , l , J ) , Z ( 1, I , J ) , I*NSTA1, NST A2 5 
IF  (NSTA-NSTA2)104l, 1041, 710 
815  IF  (BEAB-0.001)  920,920,925 
920  ITH*  MTHET+1 
GO  TO  930 
925  I  TH  =  UWTHEf/2 
930  DO  935  K*1,N$TA 
DC  935  I*i,IOIS 
DO  935  J*1 *  I TH 

AA*-RBHK ( I , K ) *CS ( J, 1 )  -AHK (2, K ) 

BR*  RBHK (I,K)*SI(J,l) 

REV=1.0 

DO  940  NS*3  ,N 

lt*NS-2 

RCV*REV/ROHKiI ,K) 

AA*AA  -REV*AHK (NS*  K) *CS ( J, LL ) 

940  Bfi  =  BB  -REV* AHK (NS,K)*SI ( J «LL ) 

Y(I  ,K, J)*BB 
935  Zll  ,K , J ) 3 A A 

DO  945  K*1 , NST  A 

OC  945  J*  1 ,  li  TH 

AD*  RBHK(1,K)*SI  (J,i) 

BD=  KBHK(1,K)*CS(J,1) 

REV=1.0 
DC  950  N0*3,N 
Cr*N0-2 
LL*N0-2 

REV=REV/R8HK(l»K) 

AD*  AO  ♦  REV*AHK(ND»IO*SI  ( J » LL I *CG 


950  BD*BD  “REV*AHK(N0-K)*CS( J»LL)*CD 
0Y ( K» J) =?C 
945  DZ(K.J)*AC 
I  THWMTH-l 
00  955  K*l,NSTA 
00  955  l=l,IDIS 
00  955  J*2,ITHM 
LL*2*ITHM*2-J 
Y(I  ,K,LL)*-Y(I,K,J) 

955  Z  ( I  *  K » L 1. )  =  ZU,K,J) 

00  956  K  =  1  »  NST A 

DO  956  J*2 1 1  THU 

LL*2*1 THH+2-J 

DY (  K,ILI>-  0Y(  K» J) 

956  D7(  K ,LL) *-DZ  (  KtJ) 

NSTA2=0 

720  NSTA1*NSTA2+1 

NSTA2*MIN0(NSTA,NSTA2*4) 

WRITE  (6706) 

WRITE  (6,707)  ( APART ( I ) , I =NST Al.NST A2 ) 

WRITE  (6,708) 

MTHtT2*2*(ITH-l) 

A  THE  T=  360.0/FLCAT (NTHET2 ) 

DP  725  J*1 ,WTHET2 
TE J*J-1 

THEE*  TE THET 

725  WRITE  (6,705)  THEE , ( Y ( 1 . I , J ) , l ( I, I , J ) , I*NST AI, NST A2 ) 
IF  (NSTA-NSTA2)  1041,1041,720 
1041  KO0NT*0 

IE  (NSYM j  202,1115,1120 
1115  IF  (BEAB-0.001)  1125,1125,1120 
1125  NTH=  2+WTHET 
GO  TO  50 
1120  NTH*  MTHET 

50  CAU  STRIP  ( IGEOM,  KGUNT  , MTHET  ,J  POWER,  AC) 

IF  (WGOIN)  90,90,2 2 

22  IF  ( IGECM-2 )  23,24,201 

23  IF  (KOUNT-l)  30,40,90 
30  KOllKT  *  KCUNT  +  l 

NTH  *  MTHFT 

READ  (5,501)  NBGCL,MEXIT 
GC  TO  1015 
1C01  K0LNT=1 

IR£PET*IREFET+1 

1015  CALL  WMCD I  ( NTH , IOI S ,NBOOL, HEX  IT ) 

GC  IC  50 

40  KCUNT  *  KOUNT+1 

IF  (IREPET  -1)  1020,1020,1025 
1020  REAO  (5,501)  MOO 
1025  CALL  ONWASH  (NTH, MOO) 

GC  TC  50 

24  IF  (IREPET-l)  1024,1024,1030 
1030  IF  (IREPET-JSTOP)  1035,1035,1002 
1024  IF  (KOUNT)  38,38,90 
38  KfUM  =  KQUNT-U 
READ  (5,501)  NJET 
RFAD  (5,504)  APART (NSTA* 1 ) 

10  T5  CALL  BMGD3  ( NTH , I D I S , NJET  ) 

I  RE  PE  T= l RF  PF  U 1 
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GC  TC  50 

90  IF  (IREPET-JSIClP)  1001*1002*1003 

1002  IF  (IGEPM-2)  1305*1310*201 

1305  WRITE  £6,731)  I01S.NBG0L,MEXIT,M0D 
GC  TC  1GC3 

1310  WRITE  (6,732)  I0!S, NJET, APART (NSTA+l) 

1003  IF  CIF0RCE.EQ.0)  GC  TO  101 
IF  (IGECM-2)  91,92*201 

91  REAR  (5,506)  NOJ ,0! AP,XCGr ZC6, CHORD 
WRITE  (6, ,734)  NDJ.OI AM,X£G-ZCG,CHORO 

CALL  FMK/NG  (NTH, ERECT » ND J,DI AH, XCG* ZCG, CHORD ) 

WRITE  (4,660) 

660  FORMAT  1 1H0,/45X,29H***END  OF  WING  COMPUTATION***) 

GO  TO  101 

92  READ  (5,506)  N02 ,0 1 AM « XCG , CHORD 

READ  (5,504)  YTI  P, ZT I P,  APART  ( NSTA+1 ) ,  YTAIL- ZTML 
ZERC  =  Cl. 

WRITE  (6,733)  NDJ,OIAM, XCG, CHORD, ZERO, YTIP.ZTIP, APART! NSTA+1), 

1  YTAIL.2TAIL 

CALL  FMEOPY  (NTH.YTIP, ZTI P,YT AIL, ZT A!L,NOJ,DI AH, XCG, CHORD ) 

WRITE  16,661) 

661  FL’KMAT  ( 1H0*/45X »29H***END  OF  BODY  COMPUTATION***) 

GC  TC  101 

201  WRITE  (6,603) 

603  FORMAT  ( 1H0 ,31H**ERRCR  IN  GEOMETRY  INDICATOR**) 

STOP 

202  WRITE  (6,604) 

604  FORMAT  ( IHO ,31H**ERR0R  IN  SYMMETRY  INDICATOR**) 

999  STOP 

50)  FORMAT  il2i6) 

502  FORMAT  (5I3.4F7.3) 

503  FORMAT  (3F12.6) 

504  FORMAT  (6F12.6) 

505  FCRMA;  ( 6E1 2.5 ) 

506  FORMAT  (I3,4F12.6) 

702  FORMAT  ( lHi .42X23HTABLE  FOR  WING  GEOMETRY) 

703  FORMAT  ( IHO ,6X ,4 ( IOX , 2HY* ,F6. 2, IOX  ) ) 

704  FORMAT  (1H  ,6H  THET A ,4 ( 5X4HX (I) I0X4HZ ( I ) 5X ) > 

FORMAT  (IH  ,F6.2 ,8E14.5 ) 

706  Fc?MAT  (IHi .38X27HTABLE  FOR  FUSELAGE  GEOMETRY) 

707  FORMAT  UH0,6X,4(10X,2HX=,F6.2,10X» ) 

708  FORMAT  U:J  ,6H  THET  A  ,4  (  5X4HY  ( I )  10X4HZ  (  I  >  5X  ) ) 

731  FORMAT  (IHl  , ^PARAMETERS  USED  IN  3D  MODIFICATION  OF  WING  CONPIJTAT 
IICN,3X5HIDIS*,13,J  X6HNBC0L*, I3,IX6HMEXIT*,I3, 1 X4HM0D* ,135 

732  FORMAT  1 1HI  ,58HPASA:v.C),ERS  USED  IN  3D  MODIFICATION  OF  FUSELAGE  COMP 
1UTAT!0N,3X5HIL'IS*,I3,1X>:-NJET»,I3,  IX19HLENGTH  OF  FUSELAGE*, F8. 3) 

733  FORMAT  ( IHO  ,47HPAhAMETE«S  USED  IN  FORCE  AND  MOMENT  COMPUTATION, 

1I3.16HJET  OF  01* METER*,F8.3,6H  .yCG*» F8.3, IGn  REFERENCE  LENGTH*, 
2F8.3,/  5XP  3HC0GRCI NATES  OF  NOSE  X*.F8.3,4H  Y*,F8.3,4H  Z*,F8.3, 

325H  COORDINATES  OF  TAIL  X*,F8.3,4H  V^,r8.3,4H  Z*,F8.3) 

734  FORMAT  (  IHO  38HP AP.AMETERS  IN  FPRCEZMOMENT  CDMP'JTA T  ION , I  3,  16H JET  OF 

1  DIAMETER  C8.3,6H  XCG*,F8.3,6H  ZCG*,  F8. 3,  IVl!  REFERENCE  LENGTH* 

2,F8.3) 

END 


SUBROUTINE  TH£C(NM,MA,NU,AC,PT,A,B) 
DIMENSION  NU(!) , AC ( 1 ) , PT » 1 ) , A ( l ) , B ( U 
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Dl PENSION  CZ<37),SZI37),CAI7),SA(7i,/ARll0),ARGI ICI.CONI 201 

PZ=PA+1 

PAE=PA+4 

DO  59  P=PZ»PAE 

IF  I ACIPI-ACIP-II  )  58,59,59 

58  AC(P)=ACIP)+6. 283184 

59  CONTINUE 

DO  110  N*1 »NP 

FN*FLOAT(M 

0EL=C.17453288/FN 

ANGC=ACll)-DEL 

OC  20  1=1,18 

ANGC=ANGO*OEL 

CZI I)=COS(FN*ANGC) 

SZI l)=SIN(FN*ANGC) 

CZI I  +  18)=-CZ(  I ) 

20  SZI I+18)=-SZl  I ) 

C7I37)*CZI1) 

SZ I 37>  =SZ  1 1 ) 

A I N ) =0. 0 
B(N)=0.0 
MC=-3 

ARG 1 4 ) * AC  1 1 ) 

CAI7)=CZIl)*PT(l) 

S A I J) =  SZ 1 1 I *PT ( 1 ) 

ANG=AC 1 1 I 
00  ICO  J=l,N 
Of)  K*l,6 
CA( 1 1 =C A 1 7) 

SA I  1 ) =SA I  71 
LC=IK~1)*6 
DC  80  1=2,7 
LV=LC+L 
ANG=ANG+DEL 
I F ( ARG I4I-ANG 150,70,70 
5C  PC=PC+3 

IFI ACIPC+4I-ANG)  50,55,55 
55  Or  60  P  =  1  ,4 
MV=PL+P 
ARG IP) =AC I  MV) 

VAR  I P I =PT I  MV ) 

60  CONTINUE 

CALL  SVCCIVAR,ARG,CCN,4) 

70  ZA=SVIN(ANG,ARG,C0N,4> 

CA 1 1 I =Z A*CZ I LV ) 

SA ! L )  =  Z A*SZ ( LV I 
80  CONTI NUF 

B(N)*8IN)*SA(l)-fSA(3)4SA(5)+SAI7)  +  5«0*<SA(2)*SAI6n46»0*SA{4l 
AIN)=A(N)+CAIl  »iCAI3)*CAI5)>CAI7K5.0*ICAI2H-CA(6)  >*6.0*CAI4> 
90  CONTINUE 
100  CONTINUE 

HDE=DFL*0. 0954930 
A  I N ) =A I N ) *HOE 
8  I M  =  B ( N) *HDE 
110  CtMINUE 
Rr  TLRN 
END 
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SUBROUTINE  SVCGIVAR, ARG,CON,NUN) 
C 

DIMENSICN  ARG(1),VAR(1), CONI’) 

C 

DEM^ARG ( NUN ) -ARG ( l ) 

OC  IS  J*1 »NUM 
OEN*is 

on  10  I *1 »NUH 
DEL*IARG(  J)-ARGUJ  I/OEM 
IF  (ABSIDEU-0. 000001)  5,5,10 
5  DEL=1. 

10  OEN*DEN*DEL! 

15  CCN(J)SVAR(J)/DEN 
REURN 
END 


FUNCTION  SVINI ARK, ARG«CON,NUM) 

C 

DIMENSICN  ARG(l) ,C0N(1) 

DIMENSICN  DEL !  10 ) 

C 

DEM*ARGINUM)-ARGU) 

SUMC»G. 

PRCAal. 

JP*1 

OC  20  J*1 »NUM 
OEL I  J) *( ARK-ARG I  J) )/DEM 
5  IF  lABS(CEUJ))-. 000001)  10,10,20 
10  SOMC*CON( J) 

JP»2 

0EL(J)*-1.. 

20  CCMINUE 

OC  30  J*1 »NUM 
GC  TO  ( 25 ,30) , JP 
25  $UMC*SUMC+CON( J) /DEL  I J) 

30  PROA*  PROA*OEUJ) 

SVIN*PROA*SUMC 

RETURN 

ENO 


SUBROUTINE  STRIP  ( IGEOM, I  PRINT ,HTHET , JPOWER, AC ) 

C 

DIMENSION  U JHK (16,40) , V JHK (16,40) ,  WJHK tl6,40)*X( 20 ),RBHK (7,16), 
1  m,18,40),VXXCi,l6,40),VYYIl,16,40),DWl30> 

DIMENSION  CP(16,40),0RDX{ 16) 

DIMENSICN  AC(l) 

DIMENSION  VX 1 40 )  »VYI40)»VZ(40) 

C 

CGMMON/BLKHKl/NSTA,N,NFOUR,NSYM, IT APE 

CCKMCN/BLKHK2/') JHK, V  JHK , WJHK, X  ,RBHK,  l 

COMMCN/BLKHK4/ORDX 

CCMMCN/BLKHK5/UJ,ALPHA,BETA 

CCMMCN/BLKHK6/CP 

C0MMCN/BLKH13  /VXX 

C0MMCN/BLKH14  /VYY 

CCMMCN/BLKH15  /NOOWN, IREPET 
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ccppcn/blkhib  /oh 

BEAB=ABSt  BE  TA) 
H1T=HTHET*1 
ALPC*  0.0l74533*AtPHA 
BETR*  0.0174533* BET A 
CCAF=  CCS(ALPC) 

SI  AF=  SIN(ALPC) 

CCBE=  CCSCBETR) 

SIBE*  SINIBETR) 

Q  =  CCAF*CCBE 
R=  SIRE 
S=  SIAF+CCBE 
LiO=  1.0 

IF  ( JPOHER)  4,2,4 
2  UO*C.O 
4  DVX*  U0*0 
DVY=  UG*R 
DVZ  =  UO*S 
REHINO  ITAPE 
DC  920  1=1, NSTA 
IF  <NSYP)  200,25,35 
25  IF  IBEAB-0.001 )  26,26,35 


26 

NIHET= 

PTHET+1 

GO  TC 

40 

35 

NTHET 

=  PTHET 

4C 

DO  *.1 

J  =  1 , NTHET 

VX(J) 

=  UJHKI I , J! 

V  Y  (  J ) 

=  VJHKU  ,J) 

41 

VZ  I  J) 

=  H JHK ( I , J» 

C  1HE  SIGN  CONVENTION  F09  Z-VELOCITY  COMPTS  THROUGHOUT  HERE  IS  POSITIVE 
C  IN  POSITIVE  7-DIfc  POINTED  UPWARO 

DC  50  J=I,NTHET 
VX I ..! I  *VX  (  J)  *DVX 
VYI J)=VY( JI+DVY 
50  VZ( J)=VZ( JI+DVZ 

IF  INSYP)  200,55,65 
55  IF  (BEAB-0.001)  303,303,65 
303  11=  2*NTHET-l 
DC  60  J=2,NTHET 
11=11-1 
vxi  m=vxi  j) 

V Y ( I  1 1 =-VY ( J I 
60  VZ(UI=VZ(JI 
N  IHET=2*MTHFT 

65  IF  (IGE0M-2I  66,67,67 

66  CFNIINUE 

CALI  VLhlNG  (NTHET , I ,VX,VY,VZ,AC) 

GC  IC  68 

67  CALL  VLBODY  « NTHET , l , VX , VY , VZ , AC ) 

68  CCMINUE 

IF  (JPOHERI  901,900,901 
9C0  DC  5C5  J=l, NTHET 

905  CP(  I  ,  J)  =-2.0*  (  VX  (  J)*(j+VY  (  J)*R*VZ  t  J)*S  )-VX  ( J  )** 2-V Y ( J  ) **2-VZ  (  J  1**2 
GC  IC  921 

901  OC  70  J=l, NTHET 

70  CPU  ,  J)  =-2.0-U0*IVXU)-U0)-(VXU)-U0)**2-VY<J  )**2-VZ<  J)**2 
921  IF  UGECP-2)  906,907,907 

906  IF  (NOCHN-O)  300,920,300 
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300  or  908  J*l, NTHET 

V  JH  K  ( I  ,  J )  -  VJHM  l,  J!-VYY(1,  I,  J! 

W JHK( I »  J)  =  WJHMI, J)-0W(I!/3.O 

908  VYY (1,1 ,  J)=0.0 
DW(!l=0.0 

GC  TC  920 

907  Of  909  J*l »MTT 

'J  JH  M  l  »  J )  -  UJHK  (  I  •  J)-VXX  { 1, I, J) 

909  VKXU.f  ,JI=0.0 
920  CCMINUE 

I  **R  IN*I  PRI  NT*  l 

203  FORMAT  (4  7H1PRESSURE  COEFFICIENTS  AT  WING,  SEGMENT  METHOD.! 

204  FCRMAT  ( 71H1PRESSURE  COEFFICIENTS  AT  WING  AFTER  RESIDUAL  SOURCE/SI 
INK  MODIFICATION. ) 

205  FORMAT  C 72HIPRESSURE  COEFFICIENTS  AT  WING,  END  OF  THREE  OIMENSIONA 
1L  MODIFICATION  OF, 13 , 3X , 10HITERAT ION. ) 

206  FLRMAT  ( 5IHLPRESSURE  COEFFICIENTS  AT  FUSELAGE,  SEGMENT  METHOD.! 

207  FORMAT  (69HIPRESSURE  COEFFICIENTS  AT  FUSELAGE,  THREE  DIMENSIONAL  M 
ICDIFICATIC  (  0F«I3,3X,10H ITERATION. ) 

NS  I A2=0 

80  NST  A1*NSTA2*1 

NSTA2=MIN0(NSTA,NSTA2*7) 

IF  ( IGECM-2  J  85,95,200 
85  60  TC  <210,215,220),IPRIN 
210  WRITE  (6,203! 

GC  TC  225 
215  WRITE  (6,204) 

GC  TC  225 

220  WRI TE  (6,205! IREPET 

225  WRITE  (6,110)  ( X ( I ),I=NSTAl,NSTA2) 

110  FORMAT  (1H0,6X,7(4X2HY*,F6.2,4X!) 

WRITE  (6,115)  ( RBHK ( 1 , I ) , I=NSTA1,NSTA2) 

WRITE  (6,121)  (DR0X(I),!=NSTA1,NSTA2) 

121  FORMAT  (1H  ,6H  THE T A , 7 ( IX , 5HDRDY* , F6. 2, 4X  )  ) 

GO  IC  105 

95  GC  TC  (230,235) , IPRIN 
230  WRITE  (6,206) 

GC  TC  240 

235  I  RE  TT=  IRFPET-l 

WRITE  (6,20  7) I RF  TT 

240  WRITE  (6, 111)  (X(I >,I=NSTAl,NSTA2) 

111  FORMAT  (1M0,6X,7(4X2HX=,F6.2,4X)  ) 

WRITE  (6,115)  (RBHK( 1 , I ) , I-NSTA1,NSTA2) 

WRITE  (6,120)  (ORDXl I)  , I =NST A 1 , NS T A2 > 

115  FTRMAT  (1H  ,6X , 7 ( 3 X3HRP= , F6 . 2 , 4X )  ) 

120  FORMAT  (1H  ,6H  THE f A , 7 ( 1 X 5HDRCX  =  , F6.2 , 4X  )  ) 

105  CCMINUE 

WRITE  (6,125) 

125  FORMAT  1 1  If  ) 

ATHET=360./FLCAT (NTHET) 
pr  130  J=l, NTHET 
AJ= J-l 

THE  T  =  A J*A  IHE  T 

130  WRITE  (6,135)  THET , (CP( I , J) , I=NSTAl,NSTA2) 

136  FORMAT  (IH  ,  F6.2,7E16.5) 

If  (NSTA-NSTA2)  201,201,80 
2C0  STOP 
2CI  RTTIRN 
F  NO 


SUBROUTINE  VLBOOY  (PTHET,K,VX,Vr,VZ. AC) 

OIPEKSIC*  C RDX ( 16) 

01  PENSICN  IIJHK 1 16*40 )  »VJHM  16,40  )  ,  W.'HK  1 16, 40), XL  I  20)  •  RBI  7,16), 
i  Z (4, 18 ,60) ,Y (4 , 18,40) ,DY ( 16*40 ),DZ  f 16, AO), OPS  1(40) 

DIMENSION  SI  (40,20)  ,CS(40,20) 

DIPENSICN  VX(l),VY(l),VZ(l),AC(l) 

DIPENSICN  AFI30) »BF(30) 

OINEXSICN  NUI 150) «  PT 1 150) 

CCPPCN/8LK'8K1/NSTA,N,NF0UR»NSYH»  I  TAPE 

C0PPCN/8LKHK2/UJHK,VJHK,WJHK,XL,RB,Z 

CCPPCN/BLICHK3/SI ,CS 

CfiPPCN/ELKHK4/0RCX 

CCPPCN/8LKHK8/Y 

C0PPCN/PLKH9/CZ 

CCPPCN/8LKH11/DY 

DC  5G  1=1 i MTHET 

DS2  =SQRT ( DY ( K ,  I ) ♦*2*CZ (K,l)**2) 
ovv=vx<  n«DRDxm*oz{K,n/os2 
0VZ=-VXII  ;i*l)RDX<K)*DY(K,H/0S2 
50  OPSKI  )  =  («(!  )-DVYJ*OZ(K,  1)  -  (VZCI)-OVZ  >*OY(K,  I ) 

PT(l)=C.O 
J=M IHET+l 
ACC J)=6. 2331853 
OPSII J)=0»SI<1) 

CALI  INTE3  (4, J, OP 51, AC *  PT  J 
80=0.1591 549 ^PT ( J) 

A J=C.O 

:CRR=PT( J ) /FLOAT (MTHET) 

OP  65  1=2, J 
AJ=AJ*1.0 

65  PTC I)=PTCI)-AJ*CCRR 
or  70  1=2,4 
J=J*l 

AC ( J) =AC (  1 ) 

70  PTC  J) =PT(  I ) 

on  75  1=1,150 
75  NL ( 1 ) = I 

CALL  THECl  (  NFCUR , MTHET  , NU ,  AC,  PT,  AF,  BF  ) 

WRI  TE  ( 1 1  APE  )  80 , ( AF ( I ) , BF ( l ) , l* 1 , NFOUR ) 

IF  (K-NS1A)  77,76,76 

76  ENO  FILE  I  TAPE 

77  DC  110  f=l, MTHET 
YCGEP=BO >CSII ,1) 

ZCCMP=-EC+Sl (1,1) 

Dr.  1C5  J=l, NFCUR 
NANG  =  ( 1-1  )*(J+i  )  *1 

80  IT  (KANG)  85,85,90 

85  NANG=NANG+MTHET 
GC  TC  80 

90  IE  (NANG-MTHET )  100,100,95 

95  NANG=NANG-MTHET 
Gr  1C.  9C 
100  A  J=  J 

YCCPP  =  YCCK-*AJ*i  BF ( J  )*CS( NANG, l ) -AF (J)* S I ( NANG, 1 )  ) 

1 33 


105  ZCCPP*ZC CPP-A J* I AF 1 J 1#CS  C NANG,  1 ) ♦BF|J)*S I  iNANG.  1 1  ) 
0RE=DZ(X,IJ*CS<I,1>~0V<K,I)*SI(I,1> 

oip=-dyik,i )*csii,i)-ozik,i!*si<i.i> 

Of  N2  *DRE • *2  AO I  B**2 
VI  =- 1 YCCBRAORf ♦ ZCORPAC I B I /DEN2 
V2*  I ZCCPPADRE-YCCBP*0 I B I / 0EH2 
wm*v/m*vi 
no  vzm-vzm»v2 

20 0  RfTLRN 
ENG 


SLBRCCTINF  VLWING  <PTHET,K,VX,VY,VZ, AC) 

C 

DIPENSICN  II JHK  (16*40 1 , VJHK I 16*40 ) » WJHK I 16*401, XL ( 201, RBI  7,16), 
1  DR0X116) 

DIPENSICN  X (4, 18 *40) , Z 14, 18,40 ) ■ OX ( 16, AO ), OZ I16,4C)»SI(4C»20)» 
1  CSI40.20) ,OPSI (NO) 

DIPENSICN  VX(1)  ,VY!l),VZfl),ACm 
01 PENSICN  AFI301 ,BF(30) 

DIPENSION  Nil! 150)»PTCL50) 

C 

CCPPCN/BLKHKl/NSTA,N,NFCUR,NSYM, IT APE 

Cf)PPGN/BLKHK2/U  JHK  ,  V  JHK,W  JHK,  XL, RR, Z 

CCPPCN/BLKHK3/SI  ,CS 

CCPPCN/BLKHK4/DRCX 

CCPPCN/BLKHK7/X 

C0PPCN/BLKH9/D! 

C0PPCN/8LKH10/0X 

C 

IF  IAPSIDROXIK) l.GT.O.Oll  GO  TO  40 
DC  35  1=1 »PTHE T 

35  ops;(i)=vxu)4ozcK,n-vzm4DxiK,n 

GC  1C  30 

40  OC  45  1=1 ,NTHET 

DS2=S0RMDXIK,I  )**2*0Z(K,I)*A2) 

DVX=VY( I ) *DROX(K)*DZ(K,I ) /DS2 
D VZ  =-VY  < I )*DR0X(K«40X(K, U/DS2 
45  DPS!m  =  (VXm-OVX)*DZ(K,U-(VZ(I  )-DVZ)ADX(K,I  ) 

50  PT ( 1 ) =0.0 
J=PTHET+i 
AC( J)=6. 2831853 
DPS  I ( J) =DPS I ( 1 ) 

CALL  INTEG  14 , J, CPS  I , AC  »  PT ) 

B0=0.1591549*PT( J) 

A J=C*0 

CCRR=PTI J) /FLOAT (PTHET) 

DC  65  1=2, J 
A  J=A  J4- 1.0 

65  PTI  I)=PU  I)-AJ*CCRR 
DO  70  1=2,4 
J  =  J»l 

AC ( J) =AC (  I ) 

7C  PTI J)=PT( I) 

on  /  5  1=1,150 
75  NCI  I )  =  I 

CALL  THEO  I NFCUR , PTr F T , NU , AC, PT , AF , PF ) 

A  0  =  C  .  0 

OC  /6  l=l,NFOUR 
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*1*1 

76  AC*AO+AI*«F(I) 

hXUE  ( !  TAPE)  *0,60.  (AFm.BEIII,  1*1, NFOUR) 

Of  110  I*1,NTHE~ 

XCCPP*BG'CS  1 1 ,  l  >  +AO*S  HI ,  1 1 
2CCM*=-B0*SIli il/»AO*CSII,I) 

Of  105  i*l,KFCUR 
NANG* I I~l 1*1 J* 11*1 
eo  IF  (KANG)  95,85,90 
25  NANG-  ANG+N'HET 
GG  TO  90 

9C  IF  (NANG-PTHET)  100,100,95 
95  NAfcG*KAt,G-PTHET 
GC  1C  90 
ICO  A J- J 

XCCPP=XCC»«P  +A  J*  (BF  ( J)  *CS  (NANG,  11— AFIJJ*SI  INANG,  1)1 
105  2CCPP=ZCCPP  -AJ«1AF(JJ*CSINANG,1HBF(J)«SHNANG,  1)1 
DRE=DZ (K , I 1 *CS (1,1 l-CX IK, II *S 1(1,1) 
DIP*-OX(K,n*CS(I,l)-OZ(K,II«SHI,II 
0EN2=DRF**2*0I P**2 
W1=-1XC0NP*CRE*ZC0PP*DIN)/0EN2 
V2*{ZCCPP*0RE-XCCNP*CIN»/CEN2 
VXU)>VX(||>V1 

no  vzm*vzm+v2 

20C  RETURN 
END 


SUBROUTINE  INTEG(N,NX,FPR,X,FCN) 

C 

01  PENSION  CONI  10) ,FPR ( 1 ) ,X ( 1 ) ,FCN( l) 

r 

NI  *  1C 
XNHNI 
NI P2*NI -2 
DC  75  I -2  »NX 
J*I-i 

IF  IJ-l,  1,1,5 
1  J0  =  1 

GC  TO  20 

5  IF  ( NX- J-N*2  )  70,10,15 

10  J0=NX-N*1 

GO  TC  20 

15  IF  (NX-II  70,70,16 

16  IF  IJ-JC-N+2)  70,18,13 

18  JC=J-1 

20  CALL  SVCC (FPR ( JO ) , X { JO ) ,C0N,4 ) 

70  SLP=0. 0 

OELX*IX(I)-X(  J)  */XM 
00  80  K=2,NIM2,2 
0X=K-1 
DX  =  CX/XM 

XX=f l.O-OX) *X( JJ+OX*X(  I  ) 

YY*SVIN(XX,X( JO) ,CCN,4) 

XX  =  XX-»OELX 

YY2  =  SVIMXX,XI  JO),  CON, 4) 

80  $0P=SUR+'».0*YY  +  2 .0*YY2 

XX  =  XX+OEL  X 

SUP^SUP+SVI  N(  X  (  J)  ,X  (  J0>  ,C0N,6  )*SV  IN(X  (  I  ) ,  X  ( JO >  ,  CON,  4  > 
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I  *4.0*SVlA(XX,X(J0),CCft,4) 
Sl»P*SUF*0ELX/5.e 
FCMI)*FCM  J)«SUP 
?5  CCftTIHUE 
RFILRW 
FW 


SLBRCUTIN^  DM*  ASH  (RTHfT ,  *00) 

DiPFASIC*  <JJHK(  16,40)  ,VJHK( 16,40) ,WJHK ( 16,40), Y( ?G ),PBM(  ( 7, 16 ), 

I  1(4*18, SOI 

OIPFKSICN  A0HK(16) 

D£ PENSION  SI  (40,29 » ,CS(40, 201, NU(150),EC<  1501, A( 50,61501 ,SAMA(40I 
1  ,CX(40),CY(40),FA(40),W(30) 

CCPFCN/eLKHKl/NSTI ,NOUF.NFOUR,NSYN, ITAPE 
CCPPCN/BLKHK2/UJ»C,Y'JHK,MJHK,Y,R8HK,Z 
CCPFCN/BLKHK5/UJ, ALPHA, 8ETF 
CCF*'CN/BLKH15  /KOOWN, IREPET 
CCPPCN/BLKH16  /H 

RFhlNO  ITAPE 
DC  1C  I =1 »NSTI 
10  RF AC  (ITAPE)  AOHK(I) 

NCChN*l 

8ETA=  ABSC8ETF) 

IF  (BETA-0.001)  400,400,405 
405  HONSTI 

|SP=  (NSTUD/2 
NSTA=  ISP-1 
00  150  1*1, ISP 
Cl=  Y(I)/Y(1) 

15C  CX ( I )  =  ACOSICT) 

DC  155  1*1, ISP 

155  CX( NSTI  +  l-I )*  3.14159-CXU) 

00  160  1*1 ,NSTI 
160  CY ( NSTI ♦ 1-1 ) *  AOHK(I) 

CY(1)=0.0 
CY»NSTI)=0.0 
GO  IC  420 
4C0  NST  A=NST I -l 
i-f  *  2*NSTA 
OC  ?  1*2, ASTI 
INV  =  NSTl-I+l 
CM1KV)  *  YU) 

2  CY(INV)  *  AOHK ( I  ) 

C  Y  (  1 )  *  0. 

UC  255  1 *2 ,NST A 
CT  =  CXU  )/CX(l) 

255  CX (  I  )  =  ACOSICT  ) 

CX( 1)=0.0 

415  Or  262  1  *  l , NSTA 
J=PC*2-I 

C  x  (  J )  -  3.14159-CXU) 

262  CY( J)*  CY(  I) 

CXCASU  )  *  1.5T08 
CY( NSTI )=  AOHK ( 1  ) 

PC=8C+ 1 
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420  IF  tBETA-G.COl)  421,421,422 

422  OC  27*  J*2,18 
A1*J-| 

DW=C.174533*AI 
OC  272  I>2.*SSTI 
If  ICXm-DUH)  222,1120, 1121 

1120  GAPAf J}*CY( I  > 

GC  1C  271 

1121  gahau)=cyti-i}  «(CY(U>CYU-in«inm-cx(i>iit/(cxm-cx(i>in 
GC  TC  271 

272  CCKTimiE 
271  CONTINUE 
6maiso. 

GAHAI191*G. 

GC  IC  423 
42 1.  OC  265  J=2,9 
AI=J-i 

DCF -0. 174533*61 
DC  266  I*2,NSTI 
IF  ICX(I)-OUK)  266, 1180, 1181 
HI 80  GAH A ( J ) =CY II) 

SC  rc  265 

ii8i  gahai j)=cvu-n  ♦«cYU)-cYU-in*<otm-cxti“m/icxm-cxu-i»» 

GC  TC  265 
266  CCMINUE 
265  CCKTINUE 
GAHA ( 1 1 =0. 

GAHA<10I*CY(NSTI) 

OC  275  1*1,9 
J=2C-1 

275  GAf'AJ  J)  =  GAKA(  I ) 

423  DC  355  1=2.18 
J=38-I 

355  GAHAl J )  =-GAHA(  I  ) 

MA=36 

OC  350  1=1,150 
350  Nll(  I  )  =  I 

OC  360  ! =1 , 36 
AI  =  1-1 

360  ECU)  =0.1  .*4533*AI 
fcC(37)=6. 283185 

G AHA  137)=  GAHA(l) 

DO  361  1=2,4 
J=  36+1 
EC ( J) =EC ( l ) 

361  GAH  A  ( J ) =G AHA ( I  ) 

CALL  THEC  ( NFCUR  »NA, NU ,  EC » GAHA, A. 8  ) 

OC  365  I  =  1 j NFCUR 
365  F A ( I ) =8 ( I ) 

HIHET=HCO 
N  'E  ST  1 =NFCUR/2 
N1FST2  =  (NFCURU)/2 
IFvMESTl-NTEST2)  1160,1161,1160 

1160  NCCU=NFCCR-1 
NCt;  2  =  NFC0R 
GC  rc  1162 

1161  NCCI 1=NFCLR 
NCCf  2  =  NFCl.R-l 

1162  OC  1 5  I=1,MTHFT 
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i-  n-u  iio»io5,iio 

1C5  A*G=3. 14159/2.0 
GCTC  115 
110  W=fcS'fA*2-I 
AKG=CX(K) 

115  SI(I*1)=SIN(AKG} 

CS(I.1)=CGS(A*G) 

SI C I «2>=2.0*SI  ( 1 ,1 )*CS ( I *1) 

55  CS(l.2)=1.0-2.0*SI!l,l)**2 
0C  60  J=4,KCCF1*2 
OC  60  1=1 ,HIHET 

S1I(*J)=SI(I «2)*CSf I , J-2I+CS1 I,21*SI ( I, J-2) 
60  CSII*J)=CS(1 ,2)*CS( I  * J-2) -SI (I»2t*SI( I, J-2) 
or  65  J=3«ftCCF2«2 
DC  65  1=1 »MTHET 

sm*j)=si(i*i)*cs<i,j~i)*cs<i.n*si(i.j~i) 
65  cs(i*j)=csu,i)*csf (,j-n-si(i.ii*:iu,j-n 

FACT  =  2.AYCNSTI) 

OC  300  K=l,POD 
S=0.0 

OC  30\  I=l»NFCJR 

A I  —  1 

301  S=S*FA(!)*SI(»  » I  )*A I 
300  «<C  K }  =  3.14164S/(FACT*SI(K,IM 

IF  (BETA— 0.001 ’  525,525,430 
4?0  DC  165  *=1,P00 

165  taUSP-l*K)  =  H(K. 

MR*ISP+i-POD 

DC  166  K*l,MR 

166  h(Kl*0.0 

Or  170  J*1,NCCF2,2 
OC  170  I *2. *00 
HP=ISPH-I 

170  SI  ( PM<.  J)  =  SI  ( I  «  J > 

OC  175  J=2 , NCCF1 ,2 
Dr  1*5  i =2 , PCD 
MP= I SP* 1-1 

175  SI ( PM, J)=  -SI(I,J) 

MS* I SP-1 
PT=I SP-l+POO 
on  180  K*PR,MS 
S=C.O 

or  185  1*1, NFCUR 
A !  =  1 

185  S=S+FAf I)*SI (K,l )*AI 

18»  h(K)  =  3.l4l6*S/(FACT*SI ( K, 1 ) ) 

OC  190  K=PR ,PT 
DC  19C  J=l , NTHET 

193  hJhK’<(,J)  =  MJHK(K,  J)+W(K)/3..0 
GC  Tf.  435 
425  Of  1  1=1, POO 
or  3  J- 1  ,NTHET 

3  W  JH  K  ( I  ,  J )  »  W  JHK  (  I,J>«-W(  J  1  /  3  >0 
4  15  RETLP.N 
END 


SLRSCUTINE  FPWING  ( MTHET , INOFX ,NDJ, 01 AP » XCG, 2CG, CHORD  1 


3  38 


DIMENSION  U JHK I 16# 40) »VJHK( 16,40) »MJHK ( 16,40), VI 20),RF( 7* 16) » 
l  214,18,40), X(4, 18, 40) 

DIMENSION  CFI16.40) 

DIMENSION  AREX(20,4Q), AREY 120,40),  AREZS20, 40).  FXt 20,40), FYt  20,40) 

1  ,FZI2C*40>  »FXTCT  »20I,FVTQT 1201*  FZTOT (20) 

C 

CnMMCN/BLKHKl/LS,MB,NFOUR,NSYM,ITAPE 

CCMMCN/BLKHK2/UJKK,VJHK,WJHK,Y,RF,Z 

CCMMCN/0LKHK5/UJ,ALPHA,8ETF 

CCMMCN/0LKHK6/CP 

C0MMCN/BLKHK7/X 

C 

5  FGRMAT  ( IHO ,/////45X  »22H**F0RCES  AND  MOMENTS** I 
6  FCRMAT  I1H  I 

9  FORMAT  (32H0X-FCRCE  Y-FORCE  Z-FORCE* 

10  FORMAT  (3611.3) 

12  FORMAT  (47H0PITCHING  MOMENT  COMPUTED  ABOUT  AXIS  THRU  C.G.*, IE11. 3) 

13  FORMAT  (45H0YAWING  MOMENT  COMPUTED  ABOUT  AXIS  THRU  C.G.*,lcll.3> 

14  FORMAT  (46H0RCLLING  MOMENT  COMPUTEO  ABOUT  AXIS  THRU  C .G.*» IE  11. 3) 

C  1 NDEX=G  RECTANGULAR  WING*  OTHERWISE*  INDEX* 1* 

BETA*  ABS(BETF) 

LSi=LS-i 

NTHE*  MTHET41 

00  20  K=l,LS 

X( 1 ,K,NTHE) *  X ( 1  ,K  ,  1 ) 

20  Z()  »K,NTHE)=  Zll,K,l) 

IF  (INDEX)  1125,1125,1130 
1125  DC  25  K=1 ,  LSI 

DFLY=  Y  C  2  )-Y ( 1 ) 

IF  (K.NE.H0ELf*0.5*(Y<K«-l)-Y(K-l>  ) 

OC  25  J=2  ,MTHET 

AREZIK, J) =  0.5*(X(l,K,J+l)-X(l,K, J-l)  )*CELY 
ARE Y(K, J) =0.0 

25  AREX  ( K,  J )  =  0.5*(Z(l,KfJ-*-l)-Z(l,K,J-l))*DELY 
GC  TC  1135 
1130  OC  30  K=2,LS1 

DEL  Y=  0.5*(Y(X*-1)-Y(K-1)  ) 

DC  30  J=2,MTHET 

0X1=  0.5*(X(l,K-l,J*i)-X(  1,K-1,J-U  ) 

DX2=  0.5*(X(l,K,J+l)-X(l,K,J-l)  ) 

0X3=  0«5*(X(l,K+l,J+lf-X( 1,K*1,J-1)) 

ARE  Z ( K ,  J ) =  0. 25* ( 0X342. 0*DX2  +  DX1)*0ELY 

AR£Y(K,J)=  0.25*  (X  ( 1  ,  K,  J+ 1  )-X  ( l  ,K  ,  J-l  )  )*(ZU,K+1,  J)-Z(  1,K-1,  J)  ) 
DZ1=  0.5*(Z(1  ,K-1,  J*l)-Z(  l,K-l,  J-l)) 

0Z2=  0.5*(Zll,K,  JUI-ZU,K,J-li  > 

DZ3=  0.5*(Z<l,K4l, J*1 )-Zl l,K+l,J-l) ) 

JO  ARE  X ( K , J ) =  0.25*(DZ342.0*0Z2*CZ1 )*DELY 
DEL  Y*  Y  ( 2 )*  Y  ( 1 ? 

Or  35  J=2 ,MTHET 

0X2=  0.5*1X11,1, J* l )-X 1 1,1, J-l) J 
0X3=  0.5*(X(l,2,J4l)-XCl,2,J-i») 

ARE  Z( l , J) =  (DX2  +  0. 5* (0X240X3) )*DELY 

ARE  Y  ( 1  ,  J  )  =  0.5*(X(l,l,j4l)-X(l,l,J-l))*(Zn,2,J)-Z(l,l,J)) 

0Z2  =  0.5*CZ(1 ,1, J+l )-Z(l,  1, J-l) ) 

DZ  3  =  0.5*(Z(l,2,J4l)-Z(l,2,J-li ) 

35  ARE  X( 1  ,  J) =  (0Z240. 5*(CZ240Z3) )*OELY 
1135  OF  L  Y=  0.5*CY(LS)-v (LSI)) 
or  40  J=2,MTHET 

0X2=  0. 5*(X ( 1  ,LS1, J41  )-X( 1.LS1, J-l  )  ) 


J  39 


0X3-  0.5*CX(l,LS.J+il-X(l,LStJ-m 
AREZILS.J)*  0. 5*10X3+0. 5*<0X2*DX3»)*DELY 

AKEY(LS.J)*  0.25*«X(l,LS»J+l)-X(l,L5.J-n)*«Z<  1,1 S,J)  -ZI1,LSI,J)> 
0Z2  =  0.5*<Zd,LSi,J*l)-ZIl,LSl,J-in 
0Z3-  0.5*iZd,LS,Jd)-Zd»lS,  J-lll 
40  AREXaS,J)»  0.5*(DZ3+0.5*«DZ24DZ3n*OELY 
IF  (BETA-0.001)  1136,1136,1137 

1137  OC  45  J=2  »HTHET 
AREZd,  J)=0.5*AREZ(l,J> 

AP.EYd  ,  J)=0.5*AREY(1,JJ 

45  AREXd,J)=0.5*AREXd«JI 
00  5C  J=2  »HTH£T 

CPBAR*  CP(2,J)-(CP(2,J}-CP(1,J>)*0.75 
FX( 1, J)=-AREXd,J)*CPBAR 
FY( 1, Jl*  AREYd,  J)*CPBAR 
50  FZU,J)*  AREZd,  JKXPBAR 
GO  TC  1138 
1136  Dr  55  J«2  *MTHET 

F  X ( l,J)=-AREXd»J)*CPd»J) 

FY ( 1 ,  J  J  =  0. 

55  FZ 1 1 » J )  =  AREZd,  J)*CPd,JJ 

1138  DC  60  K*2 .LSI 
DP  60  J=2 ,MTHET 

CPBAR*  CP(K,Jd  (CP(Kd.J)-CP(K,  J)  )*<0.5*(  Y(K-1)*Y(K))  *0.25* 

1  ( Y(K+1)-Y(K-1) )  -Y(K) )/(Y(K*l)-Y(Kl  ) 

FX(K,J)=-AREX(K»J)*CPBAR 
F Yi K,  J  )  =  AREY1K, J)*CP8AR 
60  FZ1K,J)=  AREZ(K,J)*CPBAR 
DO  65  J=2  »MTHET 

CPBAR*  CP(LSl,JU(CP(LS,J|-CPaSl,Jn*Q.75 
FXdS,  J)»-AREX(LS,  J)*CP8AR 
F Y( LS »  J ) -  ARE Y ( LS«  J) +CPBAR 
65  FZ(LSfJ)-  AREZUS,  J)*CPBAR 
OC  145  K=1,LS 
FXTCT ( K ) *0. 0 
FYTCT ( K)*0.0 
FZICT(K)=0.0 
DO  145  J  =  2  , PTHET 
F  XTC  T l K )  =  FXTCT ( K ) +FX ( K , J  ) 

F  YTGT ( K ) =  FYTCT ( K) +FY (K, J ) 

145  F  Z  TOT { K )  =  FZTOTIKdFZIK.J) 

XFCRCE=C.O 
YFCRCE=0. 0 
ZFCRCE=0.0 

TRLST=  3.l4159*FLCAT(N0J>*JCIAVUJ)**2/2.0 
DO  155  K  =  2 , LS 
XFCRCE*XFCRCE  <FX10T(K) 

VFCRCE=YFCRCE  +  FYTCUK) 

155  ZFGSCE  =  ZFCRCE  ♦FZTOT(K) 

IF  ( BE  TA-C. 001 )  1160,1160,1165 
1 1 65  XFCRCE-  FXTCT  d ) +XFORCE 
YFCRCE*  FYTCT  d ) +YFORCE 
ZFORCE=  FZTCT ( l ) ♦ZFDRCE 
YFCRCE*  YFOKCE/TRUST 
XFCRCE*  XFORCF/TRUST 
ZFCRCE*  zrCRCE/TRUST 
GC  TC  U7G 

1 1 o 0  XFCRCE  =  FXTCH  l)+?.0*XFCRCE 
YFCRCE=  O.G 


ZFCRCE*  FZT0T(l)+2.0*ZF0RCE 
XFORCE*  XFCRCE/TRUST 
YFCRCE*  YFCRCE/TRUST 
ZFGRCE*  ZFORCE/TRUST 
1170  WRITE  (6.5) 

WRITE  (6.6) 

WRITE  (6.9) 

WRITE  (6*10)  X FORCE. YFORCE.ZFORCE 

YAW*0.0 

PITCH*0.0 

ROLL*0.0 

IF  (BETA-0.001)  1175,1175,1180 
11  BO  00  161  K*l,LS 

DC  161  J*2,MTHET 

161  PITCH*  PITCH  ♦FX(K,J)*(Z(l,K,  J )-ZCG)  +FZ(K,J)*(XCG-X( 1,K. J) ) 
DC  162  K*2,LS1 

162  YAW=  YAW*FXTOT(K)*Y(K) 

YAW*  YAW+FXT0T(1)*(Y (2 ) +0.25* IY ( 1 )-Y( 2) ) )*FXTOT(L  S )*( Y(L SI) 
l  +0.25*(Y(LS)-Y(LS1))) 

OC  163  K*1 ,LS 
DO  163  J*2»NTHET 

163  YAW*  YAW+FY ( K, J) *( XCG-X ( 1 ,K, J ) ) 

DC  164  K*2. LSI 

164  ROLL*  ROLL-FZTCT (K) *Y (K) 

ROLL*  RCLL-FZTCT(l)*(Y(2)+0.25*(Y(l)-Y(2)) )-FZTOT (LS)*(Y(LS)  ) 
1  +G.25*(Y(LS)-Y(LS1))) 

DO  166  K*1 ,LS 
00  266  J*2,MTHET 

166  ROLL*  ROLL  ♦FY(K,J)*(Z(1,K,J)-ZCG) 

PITCH*  PI TCH/ ( TRUS T*CHORD ) 

YAW*  YAW/(TRUST*CHCRC) 

ROLL*  ROLL/ (TRUS T*CHCRD) 

GO  TO  1185 
1175  UO  160  K*2,LS 

(JO  160  J*2 ,  MTHET 

160  PITCH*  PITCH  ♦FX(K,J)*(Z(1,K, J)-ZCG)  *FZ (K»J)* ( XCG-X  ( l.K, J) ) 
PITCH*  2.0*PITCH 
DC  165  J*2 , MTHET 

165  PITCH*  PITCH  +FX 1 1 , J ) * ( l ( 1 , 1, J )-ZCG )  *FZ ( 1, J )* ( XCG-XI 1, 1 , J ) ) 
PITCH*  PITCH/(TRUST*CHCRO) 

1185  WRITE  (6,6) 

WRITE  (6,12)  PITCH 
WRITE  (6,13)  YAW 
WRITE  (6,14)  RCLL 
RETURN 
END 


SUBROUTINE  FMBCOY  ( 7  THE T , YT, ZT, YT A IL, ZT A IL.NDJ,  D! AM, XCG, CHORD ) 

C 

DIMENSION  UJHK(16,40),VJHK(16,40),WJHK(16,40),  X( 20 ),RF( 7, 16 ) , 

1  Z (4,18,40) ,Y(4, 18, 40) 

DIMENSION  CP( 16,40) 

DIMENSION  AREX(20,40),AREY(20,40),AREZ(20,40),FX( 20, 40) , FY( 2C.40) 
1  ,FZ( 20,40) ,FXTCT(20),FYT0T(20),FZT0T(20) 

C 

C0MMCN/BLKHK1/LS ,MB, NFOUR ,NSYM, I T  APE 
C0MMCN/bLKHK2/U,IHK ,  V  JHK,  W  JHK ,  X ,  RF ,  Z 
Cf  MMCN/BLKHK5/UJ,ALPHA,BETA 
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CCPPCN/CLKHK6/CP 

CPKPCN/BLKHK8/Y 

C 

5  FPRMAT  ( 1HQ,/////*5X,22H**FQRCES  AND  MOMENTS** I 
6  FCRkAT  ( 1H  ) 

9  FPRMT  ( 32HOX-FGRCE  Y-FORCE  Z-FORCE) 

1C  FORMAT ( 3E11.3) 

12  FORMAT  I4/H0PITCHING  MOMENT  COMPUTEO  ABOUT  AXIS  THRU  C.G.*, 1E11. 3) 

13  FORMAT  IA5HCYAMING  MOMENT  COMPUTED  ABOUT  AXIS  THRU  C.G.* • IEI 1.3) 
NIH£=MTH£I/2  *1 

1ST=LS*1 
LSI =LS-1 
NTH=NTHE*l 
Or  20  K*1 »L$ 

Y(1,K,NTH)=  -Y(  1  »K» MHE-l  ) 

20  Z(1 »K»NTH)=  ZC l»K»NTHE-l i 
OC  25  J=1 » NTH 
Yt 1 »LST  »J)  =  YTAIL 
25  ZIi,LST,J*=  ZTAIL 
OC  3C  K=2 »LS 

OELX=  0.5*(X(K*l)-X(K-ll) 

APEXSK,  1 »  =  0.5*im,K  +  l,l)-ZM,K-l,  1)  )*YI  l,K,2) 

ARE  Yi  X  *  1 )  "-  0.0 

AREZIK,  I)=  0.25*(Y(l,K4l,2M2.0*Vll,K,2)4YU,K-l,2>  )*0Et  X 
OP.  30  J=2,NTH£ 

DY1  =  0.5*(YU,K-i,J»ll-YU,X-l,j-l)l 
DY2  =  0.5*IY(i,K,j*U-YIl,X»J-l)l 
0Y3  =  0.5MYI1.KU,  jFl  )-Y  I  l,K*l,  J-l)  ’ 

ARE2!K,J)=  0.25*I0Y3*2.0*DY2*DYl)*DELX 
0/1=  0.5*(Zn.K-l,JU)-Zll,K-l,J-ll) 

0/2=  0.5*mi.K(J*l)-2(i«K,,)-m 
0/3=  0.5*IZU,K*l,  J+l)-Z(l,K*l,J-l)) 

APEYIK,J)=  0.25*t0Z3*2.0*0Z24DZn*0ELX 
30  AREXIK, J)=  0.25*CZCl,K*l, J I -Z C 1,K- l, J >>* CYI l,K, J+1)-Y(I,K,  J-  1 )  I 
0ELX=0.5*XI2 ) 

ARE XI 1,11*  0.5*(Z(l.2» l»-ZT)*YIl, 1,2) 

ARE Y( l » l ) =0*  0 

ARE  2(1*13—  0.25*«Y(l,2f2)42.0*YCl, l,2)4YTJ*0CLX 
or  35  J=2 ,NTHE 

0Y2=  0.5*tYll,l,J*l)-Y!l,l,J-l) ) 

DY3=  0.5*IY(l,2,j4l)-Y(l,2,J-l)) 

AREZIl, J)=  0.25*IOY3«2.0*DY2)*DELX 
0/2=  0.5*(Ztl«lf J4i)-ZCl,l,J~l! ) 

0/3=  0.5*fZll»2,J4l)-ZIl,2, J-l) ) 

ARE  Y 1 1  ,  J )  =  0.25*(DZ342.0*0Z2)*DELX 
35  AREx(i»J)=  0.25*IZ(1,2,J)-7T)*IYU,  1,  J4l)-Y(l,  1,J-1)) 

0(  *0  K=l »LS 
OC  AO  J=NIH,MTHET 
NCN=  NTH  -( J-PTHET/2 ) 

AREZIK, j)-  AREZIK, NON) 

ARE 'i  I K,  J)  =-AREY  (K,  NON) 

AO  APE  X  I K  ,  J ) =  AREX I K  *  NON ) 

DC  AS  K=2,LSl 
Or  J=l ,MTHET 

CPBAR=  CPIK,J)4(CP(K4l,J)-CP(K,J))*(0.5*IX(K-l)4XIK))  40  25* 

1  ( X I K4 1 ) -X ( K-l ) )~X(K) )/  IXIK4  1  )-X(K)  ) 

F  X ( K  ,  J ) =  AREX IK, Jj *CPBAR 
FYI K,J) =-AREY(K, J)*CPBAR 
A 5  F/(K,J)=  AREZIK, J)*CP8AR 


M2 


DO  50  J=1 *MTHET 

CPBAR*  CP(1,J)+  (CPI2,J)-CPCl,Jim0.5*XU>*0.25*Xt2)-Xt  l»» 

i  /ixm-xmi 

?X(l,J)*  AREX ( 1 ,  J) *CPBAR 
fYll.JI*  -AREY ( 1 ,  J ) *CPBAR 
FZP, Jl*  AR£Z(1,J)  *CPBAR 

CPBAR;-  CP(LS,J»f  (CP(LS,J)-CP<LSl,J))*(0.5*(X(LS)«Xtl.Sl)  )*0.25* 

i  (xusri-xasin-xas)  i/misi-xasn ) 

FXILS.J)*  AREX(LStJ) ♦CPBAR 
FY(L$,J)«  -AREV(lS,J)*CP0AR 
50  FZllS.JJ*  AREZ ( LS»  J) *CPBAR 
00  1*5  K  =  1 *  L$ 

FXTCT I K| *0,  0 

FYTCT(K)*0.0 

FZTCT ( K 1 =0.0 

OP  1*5  J*1»MTHET 

FXTCT  ( K) *FXTOT I K I ♦ FX ( K  •  J ) 

FYTCT(K) *FYTCT (K)+FY(K,J) 
i*5  FZTOT(K)*FZTOT|K)fFZ(K,.M 

TRUST*  3.  1*159*FL0AT  (NOJ)*(OIAH/UJ  1**2/ 2*0 
DO  150  K= 1  *  LS 
FXTGTm*  FXTOT  (  K)  /TRUST 
F  YTOK K ) =  FYTOT ( K) /TRUST 
150  FZICT(K)*  FZTCT  S  K) /TRUST 
XFGRCE*0.0 
YFCRCE=0.0 
ZFCRCE*0.  0 
00  155  K=l*LS 
XFCRCE*XFCRCE*FXTOT(K) 

YFCRCC*YFCRCE*FYTOT(K) 

155  Z'CRCE*ZFORCE*FZTOT(K) 

WRITE  (6,5) 

WRITE  (6,6) 

WRITE  (6,9) 

WRITE  (6,10)  XFCRCE.YFORU-  ^ORCE 

YA W=0. 0 

PITCH=0.0 

OC  175  K=l,lS 

IF  (X(K)-XCG)  175,176,176 

175  CONTINUE 

176  HCPEKT*K 

XDI S*  X ( MOMENT ) -XCG 
IF  (MCMENT-I)  1111,1111,1180 
1175  DO:  160  K*HOMENT,LS 

YAW= YAW+FYTOT!K)*(X(K)-X( MOMENT J+XOIS) 

160  PI TCH=PITCH-FZTGT(K)<MX(K)-X( MOMENT 1+XDIS) 

GO  1C  1185 
1180  MEN l*MOMENT-l 

DO  165  K*1 ,MENT 

YAW=YAW-FYTOT(K)*(X (MOMENT )-X (K)-XDIS) 

165  PI  TCH=PITCH*FZTCT(K)*(X  (MOMENT  ) -X  (K  )-X0  I S  J 
IF  (.S-MCMENT)  1111,11 11,1175 
U85  OC  170  K*l,lS 

Dr  170  .!= 1 ,MTHf T 
YAW=YAW-FX(K»J)*Y(1,K,J)/TRUST 
170  PITCH*  PI TCH+FX (K, J)*Z < 1 ,K, J)/TRUST 
YAW*  YAW/CHCRO 
PITCH*  PITCH/CHCRO 
WRITF  (6,6) 
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WRITE  (6,12)  PITCH 

WRITE  (6,13)  YAW  V 

RFTLRN 

llll  WRITE  (6,601) 

601  FCRPAT  ( IH0»30H**FRRCR  IN  POMENT  OATA  INPUT**) 
STCP 
END 


SUBROUTINE  WP0D3  ( MTHET , I OIS.NBOOL ,MEX I T ) 

C 

01  PENSION  UX(16,40i,UY(l6,4C),UZ(16,40),YCOMM(20),RF(7,l6) 
DIMENSION  X (6, 18, 40) ,Z(4, 18,40 ) , DNORM ( 4, 16, 40) , OT ANG( 4, 16, 40 ) , 

1  OVOL (4, 16, 40), FLUX (4, 16, 40), PH  I (4, 16, 40) 

D I  PENSION  VX( 1,16,40) ,VY< l, 16,40 ) , VZ ( 1, 16, 40) 

D1 PENSION  S I (40 ,20 ) ,CS (40,20) ,C 1 30, 16) ,0(30, 16) 

DIMENSION  E ( 16 ) , Y ( 40 ) 

t 

CCPPCN/BLKHKl/LS,PB,NFDUR,NSYP. ITAPE 
CCPPCN/BLKHK2/UX ,UY  jUZ »YCOMM, RF, Z 
CCFPCN,'BLKHk3/SI  ,CS 
CCPPCN/BLKHK5/UJ, ALPHA, BETF 
CCPPCN/BLKHK7/X 
CCPPCN/BLKH14  /VY 
CCPPCN/BLkH15  /NCOWN,  IRE0ET 
C 

EQUIVALENCE  (FLUX ( l ) , CNORP (1) ) , (PHI ( l ) , 0? ANGIl) ) 

C  ! 

REWIND  ITAPE 
DC  15  K»l,LS 
Y(K)  =  YCOPM(K) 

READ  (ITAPE)  OUPPY ,E (K ) , ( C ( l , K ) , 0 ( S ,K  )  ,  I»1,NF0UR) 

15  CONTINUE  i 

BETA*  ABS(BETF) 

LS1=LS-1 

MT1-PTHET+1  ' 

DC  60  K* l  ,1  SI 

DC  60  I=1,IDIS 

X  (  I  ,K,PT1)=XII,K,1) 

60  Z(I,K,PTl)=Z(l,K,l) 

DC  65  K=1  ,LSl 
DC  65  I =2  ,!DIS 
DC  65  J=1,PTHET 

ONCRP  ( I  ,K,J)=SQR1  (  (XU,K,  J)-X(I-l,K,s! )  )**2  ♦  (  Z  (  I ,  K ,  J  )-Z  (  I- 1 , K,  J ) ) 
1  **2) 

65  D  TANG  (I  ,K ,  J)  =SCRT  (' (X  1 1  ,K»  J*1 ) -X  ( I ,  K,  J  )  )**2  ♦(  Z  ( I ,  K,  J*  1 )- Z  (  I ,  K ,  J )  ) 
l  **2 ! 

or  (o  k= i  ,  l  s  i 

DC  70  I =2, 1  01 s 

DC  70  J  =  l, MTHET 

ir  (1-IDIS)  1145,1146,1145 

1145  IF  (1-2)  1150,1151,1150 

1146  DN  =  DNCRP( IDIS.K,  J) 

GO  TC  1152 

1151  DN=C.5*DNCRP(3,K ,  J ) ♦DNORM ( 2 , K , J) 

GO  TC  1152 

1150  DN=C.5*(0N0RP( l ♦ 1 , K , J ) ♦ONCRM ( I,K, J!  ‘ 

1152  IF  ( J- l 1  1155,1156,1155 

1156  DT=C.5*(D1ANC(I,K, i ) *DT ANG ( I , K, MTHET ) ) 
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GC  TC  1157 

0T*C.5*(DTANGU,K, J)+OTANG(ItK#J-m 
157  IF  (K-ll  1159,1158,1159  ’  * 

1158  0V*Y(2J 

GO  TC  1. 160 

4*2  0YaC.5*{Y(K+l»-y(K-l)) 

1160  OVCUI,K,J)*  DN*CT*OY 
70  CCATINUE 
0C  75  K=1,LS 
DO  75  1-2, JOIS 
Rl*ALOG(RFl I ,K 1 ) 

DP  75  J*1,MTHET 

AA=E(K)*RL 

RCV=1.0 

DC  80  N=1 ,NFOUR 
REV=REV*RF1 l,K)/RF(I,K) 

“SImS1 . 

DC  85  K=2,LS1 
OC  85  1*2,101$ 

DO  85  J*1,HTHET 

■  s;*i, 

1205  OC  06  K=1,LS 

DC  06  0  =  1 ,MTHET 
VX(  1,K,F)=0. 

VY{ 1 ,K,M) =0. 

86  V£  f  1,K,*J=0, 
i63*L$-3 
00  8?  K=4,LS3 
lH=0AXO12,K-4) 

L8*0INO(LSI  ,  K4-4 ) 

DC  87  IKL=!B,LB 
OC  87  N*1,mthET 
OC  87  1 *2  *  1 01 S 
DC  87  J  =  l,t<rHtT 

LS4=LS-4 

ISS=LS4~4 

0(  88  KA=4,LS4,l$S 
K  8  *  *CA  +  1 

IF  (KA.FC.4)  KC=  5 
IF  (fv4.FC.LS4)  KC=-5 
DC  88  K  =  KA,  KB 
or  00  H*1,HTHET 
or  88  I *2  » 1 01 s 

or  88  J  =  1  ,M  THET 

CfiS--  (  (  X  (  1  ,  K,0) -X(  I  ,K*KC,  J  J  )**2  MZI1|K|N).{{  I.K+Kf  Ml**? 

1  ♦(Y(K)-Y(K+KCI l **2 I *♦ 1 . 5  I.K+KC.J  ))**2 

i  i  :?ts;  ,*  j  j:  ■«»»«-* 
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d8  VZ<  1,K,M)  =  VZ< 1 »K, M ♦FLUX  I I ,K+KC, J )* ( Z I 1,K,H )-Z (  I ,K+KC, J  II /CBS 
GO  TC  1210 
1200  OC  90  1=2,ID!S 
DC  9C  J=i, MTHET 

90  FLUXII  ,1,J)*  DVCLU,1.JI'*'2.0*IPHHI,2,J)~PHI<  I,  1,  J  » )/l  12.566*Y(  21 

1  *Y<2)» 

or  91  K=1,LS1 
00  91  !=2,ID!S 
OC  91  J-i ,MTHET 

91  PH! (I »K , J) =  FLUX (! *Kf Jl 
00  92  K  =  i f LSI 

OC  92  I*2.101S 
DO  92  J*l, MTHET 

92  FLUX ( I ,  K+4  «  J)  =  PHI(!,K,J) 

LCCMP=  LS+4 

DC  95  K*l ,LS 
OC  95  I=1,IDIS 
DO  95  J*l, MTHET 
PHl<I,K,J)=X(l,K,J) 

95  DVCL(I,K,J)=  Z ( I ? K  «  J  ) 

DO  100  K* 1 » LSI 
00  100  I =1 • 1 01 S 
OC  ICO  J=! , MTHET 
X(  I  ,K+4,  JiaPHIU  ,K,  J> 

100  Z(1 ,K*4,J»=OVOL< l,K,J) 

DC  105  K*l,4 
N  =  6-K 

DO  105  I*l,IDIS 
DC  105  J  =  l, MTHET 
X 1 1  ,K  ,  J )  =  PHIHtN.J) 

105  Z ( I »K , J ) =  DVOL ( I i N  » J ) 

C  FLUX  HAVE  SAME  SIGNS  ON  BOTH  SICES  OF  JET, DUE  TO  SECOND  DERIVATIVE 
or  110  K  =  1 ,4 
N=1 C-K 

do  no  i *2, lots 

or  no  J  =  l, MTHET 
110  FtUXII , K , J) =  FLUX ( I , N*  J ) 

DC  115  K*1 ,LS1 
115  Y I K+20) =Y(K) 

00  120  K=1,LS1 
120  Y l K+4 ) = Y ( K+20 ) 

DC  125  K* l , 4 
N=1 0-K 

125  Y ( K ) =  ~Y ( N ) 

Dr  130  K= l , LCOMP 
OC  130  M=l, MTHET 
V  X  f 1 , K , M ) =0.0 
V Y ( 1,K,M) =0.0 
130  V7 ( 1 ,K,M) =0.0 
LCCM3=LC0MP-3 
00  135  K  =  5 , 1 1 
I H  =  M I  NO ( 3  ,K-4 ) 

LH=M|N0(LC0M3+2,Kf4) 

OC  135  LKl=IB,LB 
DC  135  M=l, MTHET 
OC  135  I =2 , 1  01 S 
Ui  135  J=l, MTHET 

CBS=I ( X< 1 ,K,M»-X(I , LKL, J ) )**2*(Z(l,K,M)~Z»l,L<L,J  ))**2 
1  ♦(Y(K)-Y(LKL) )**2)**1.5 
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VXC1  VX ( 1 »  K, K) ♦FLUX ( I«LKL, J  I*  IX  ( 1,K,H)-X(  I, LKL, J ) )  /CBS 

VY(  1,K, H)  =  WY  ( 1 ,  K,  M)  -rFLUX  (I,LKL,J)*(Y  (K )— Y  (LKL  I )  /  CBS 
135  VZ(l,K,*)=  W2(  1  »K#H  INFLUX  ( I,LKL,J)*(Z(  l,K,M )-Z I  It  LKL*  J ) )  /CBS 
IF  (LCGF3.LE.il)  GO  TO  1210 
or  140  F*12,LCCF»3 
I fl*K-4 

LP*KlNO(LCOf‘3*2»K+4| 

OC  140  LKL*  l B  »  LB 
00  140  P*1 »FTHET 
Of;  140  l*2,I0IS 
OC  140  J*l,f»THET 

CPS  =  ( (X(1,K,M)-X(1 ,LKL, J) )**2*(Z(l,K,K)-Zf I,LKL,J  >)**2 
1  ♦(Y(K)-Y(LKL) )**2)**1.5 

VX(  1,K,F»)  =  VX<l,K,H)+FLUX(I,lKL,J)*(X(l,K,M)-X(  I, LKL,  JM/CBS 
VY(1,K,K)=  VY(i,K,M)*FLUX(l,LKL,J)*(Y(K)-Y(lKL>  I/CBS 
140  VZ(1,K,P)=  VZ(l,K,H)+FLUX(I,LKL,J)*IZ(l,K,M)-Zf  I,  LKL,  J) I/CBS 
1210  IF  (KBOCL-l)  1181,1180*1181 

1180  IF  (BETA-0.001)  1183,1163,1184 

1183  N3=  3 
M6*6 
*7*7 
Hfl*8 

OC  149  J*1 ,KTHET 
VX< 1,3,J)=VX(1,7,J) 

V  V  (  1 , 3 • J) -VY ( 1  ,7  ,  J ) 

149  VZ(  l,3,J)=VZ(l»7,J) 

GP  TC  1185 

1184  *2*>*EXI  1-3 
K3=*2+l 
*4*K2*2 
M5*P20 
M6*F2+4 
*7»P2*5 
*8**2*6 

YN1 =  (Y(*4)-Y(*3))*(Y(M4)-Y(M7) >/ ( Y (M2 >-Y (H3) )/!, Y(M2)-Y(M7) ) 
YN 2=  (Y(M4)-Y( M2 )) * ( Y (H4 ) -Y (M7 > )/ ( Y (M3 )-Y (M2 > ) / ( Y (M3 )-Y(  M7 ) ) 
YN3*  (Y(M4)-Y(M2))*<Y<M4)-Y(M3) )/ (Y(M7)-Y(M2) ) / t Y ( M7)-Y( H3 ) ) 
OC  151  J*l,MTHET 

VX( 1,M4, JJ*  0.5*(VX(1,H4,J)+YN1*VX(!,M2»J) *YN2*VX { 1,H3, J ) 

1  ♦YN3*VX(1»M7»J)) 

VY  ( 1 ,M4 , J )  -  0.5* (VY( i,M4, J)+YN1*VY( l, M2, J)*YN2*VY< 1,M3, J ) 
t  ♦YN3*vY(l,M7,J) ) 

151  VZ ( 1 »M4 »  J )  =  0.5*(VZ(l,H4,J)+YNl*VZ(i,M2,J)+YN2*VZ( 1,M3,J ) 

1  *YN3*VZ<1 ,M7,J) ) 

1185  YN1  *  (Y(M6)-Y(M7))*(Y(M6)-Y(M8))/(Y(M3)-Y(M7))/(Y(M3)-Y(M8)) 
YN2  =  (Y(M6)-V(M3))*(Y(M6)-Y(M8))/(Y(M7)-Y(M3))/(Y(M7)-Y(M8) ) 
YN3 -  (Y(M6)-Y(M3))*(Y(M6)-Y(M7)  )/(Y(MB)-Y(M3n/(Y(M8)-Y(M7)  ) 
Of  152  J*  1 ,  MTHC T 

VX(1,M6,J)*  0.5* (VX ( 1  ,M6 , J )  ♦YNl*VX(l,M3,J )*YN2*VX ( 1, M7, J ) 
t  *YN3*VX( 1 ,  H  8 , J ) S 

VY(  1 ,M6 , J  )  *  0.5*(VY(1,M6,J)  *YN  l*VY  (  l  ,  M3,  J  )  *YN2*V  Y  (  1,  H7,  J  ) 
t  *YN3*VY (  1  , M8 , J)  ) 

152  VZ(i,M6,J)=  0.5*(VZ(1,M6,J)  *YNl*VZ ( l , M3, J )+YN2*VZ ( 1, M7, J ) 
l  ♦YN3*V/tl,M8,JJ) 

1181  IF  (BETA-0.001)  1182,1182,1190 

1182  OC  160  K  =  5,ICC1M3 
N  =  K-4 

or  160  L  *  l  ,  F  THET 
i,X(N,L)=UX(N,L)>VX(l,K,L) 
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UY<N,L)*Ut(N,L)+VY(l,K,L) 

160  U/fN.l)*  UZ(N,L)*VZ(l,K,L) 
0C  153  K*5,IC03 

00  153  J=1 « MTHET 
N=K-4 

153  VY( 1,N, J)-VY(ltKtJ) 
LCCM6*LC0M3-3 

Of  155  K-LCCH6.LC0HP 
DO  155  J=l,PTHET 
155  VY(1,K,J)=0. 

0(1  154  K=1,LS 
OC  154  I*1,IDIS 
00  154  J*l, MTHET 
X(  [  ,K,  J)=PHHI  ,K,  J) 

154  ZII  ,K,J)=DVCL(I  ,Kt  J) 

GO  1C  1195 

l J  90  OC  161  K=  4  ,LCCM3 
DC  161  L=1 »MTHET 
LX ( K  ,L )  *  UX(K,L)*VX(l,K,L) 
UY ( X ,L ) =  liY  (K,L)*VY  ( l ,K,L ) 

161  UZ(K,L)=  UZ (K,L)+VZ(1,K,L) 
1195  NUCV»N=0 

RETURN 

END 


SUBRCUT  I NE  BM003  < MTHET , I OIS, N JET  ) 

C 

D! PENSION  UX(16,40),UY(16,40).UZ< 16, 40 ) , XI 20), RE ( 7, 16), 

1  Y(4, 18,40) ,Z(4,18,40),E(16),CN0RM(4, 16,40),  OTANGt 4, 16,40) , 

2  CV0L(4,16,40) ,FLUX ( 4 , 16,40 > , PH  I < 4, 16,40) 

DIMENSION  VX(1,16,40),VY(1,16,40),VZ(1,16,40) 

DIMENSION  SI  (40,20  ),CS(  40,20  ),C(  30,  16),  0  00,16) 

C 

CCMMCN/BLKHKi/LS ,MB,NFOUR,NSYM, IT APE 
CCMMCN/BLKHK2/UX,UY,UZ,X,RF,Z 
CrMMCN/BLKHK3/SI ,CS 
CCMM0N/BLXHK5/UJ,ALPHA,3ETF 
CCMMCN/PLKHK8/Y 
CCMMCN/BLKHO  /VX 
C 

ECU  I  VALENCE  (F LUX (1) , ONORM ( l ) ) , ( PH  I ( 1 ), DTANGI 1 ) ) 

C 

RE> IND  ITAPE 
DO  20  K  =  !  ,LS 

READ  (ITAPE)  E  ( K  )  ,  (C  ( I  ,K ) ,  D  ( I  ,  K  ) ,  I*  1,  iYFOUR  ) 

20  CONTINUE 
e  LSl=LS-l 
MIl=MTHEm 
Dr  40  K=2,LS1 
DC  40  I=l,IOIS 
Y ( I *K*MT1)=Y(I  ,K,1) 

Z(I,K,MTl)*Z(I,K,l) 

Y ( I «K,MT1+1 )=Y( I »K,2  ) 

4C  Z(1  ,K,MT1  +  1 )  =  Z  « I  ,K,2) 

DC,  45  K  =  2,LSl 
DC  45  I =2  » I DI S 
DO  45  J  =  1 , M  T  I 

DNC8M ( I  ,K,J)»SCRT((Y(I,K,J)-Y(I-1,K,J))**2  ♦(Z(I,K,J)-Z(I-1,K,J)) 
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1  **2) 

45  D TANG (I »K» JI^SCRT (1V(I»K,J*1)-YCI»K»JI )**2  ♦  IZfl»K,J*ll-ZII»IC»J!) 

1  **2» 

OH  50  K>2,LS1 
00  50  I*2,T0IS 
DC  50  J=1 »F  TMET 
IF  (I-ICIS)  1145,1146,1145 

1145  IF  1 1-2 1  1150,1151,1150 

1146  DN*DNORMIIOIS.K.J) 

GO  TO  1152 

1151  0N*C.5*DN0RMt3,K,J)*DN0RM(2,K,J) 

GC  TC  1152 

1150  DN*G.5*(0M)RMI-rl,K,  J)*ONCRH(  I,K,J)1 

1152  IF  IJ-1I  1165,1156,1155 

1156  DT*C.5*<DTANG(I,K,1)+DTANG(I,K,MTHETI) 

GC  TC  1157 

1155  DT*0.5*I0TAnG(I,K, J)*DTANGIl,K, J~1 )) 

1157  0XsC.5*(X(K-l)+X(K*lJ) 

50  DVCLI I , K , J) s  DN*OT*DX 

OC  70  K=i,LS 
00  70  Is2,IDIS 
DO  70  J=l ,HTHET 
AA*-E(K)*RF{l,K)/RF< I,K) 

REV*1.0 

DC  75  N*1  ,Nf  OOJR 
REV=REW*RF  J  *  K)/RF(I,K) 

F 5  AA=AA*REV*(-D(N,K)*CS( J,NHCIN,K)*SI  iJ.NIJ 
70  PHI ( I ,K, J)*AA 
LS2=LS-2 

C  SIGN  IN  FLUX  IS  PLUX.DUE  TO  COMBINATION  OF  TWO  MINUS  SIGNS. 

DC  80  K*2 ,LS1 
WX1«  XIK — II— XfKl 
NX2*  XlK-l)-X(K*ll 
WX3a  XIKI-XIK+1) 

DP  80  I— 2,IDIS 
DC  80  J=1  ,MTHET 

80  FLUX ( I , K  ,  J) =  ( PH  I ( I , K-l , J  )/WX 1/WX2  -PHI(l,K»J)  HX1/WX3  +PHI(I,K+1, 

1  J)/WX2/kX3  -0.5*E(K»*RF(l,K)/RF(I,K)**3)*DVr  !,K,J}/6.2832 

DC  81  K=1,LS 
DO  81  M=1 ,MTHET 
VX( L ,K ,N ) =0.0 
VYt 1  »K,  V) =0.0 

81  V2 ( 1  ,K jM) =0.U 
LS3=LS-3 
NTHE=MTHE 1/2  +1 

IF  (ABS(BETF).GT. 0.001)  NTHE*MTHET 
NJL*NJET-2 
N JR=N JET+3 
DC  85  K*3  ,  N JL 
I 8  =  KAX0 (2  ,K-4 ) 

DC  85  LKL=IB,NJR 
Or  85  M  =  1  ,NTHE 
OP  85  I=2,!DIS 
DC  85  J=l ,MFHET 

CBS=  ((X(K)-XIIKLI )**2  ♦(YI!,K,M)-Y(I,IKL,J))**2  ♦(Z(1,K,M) 

1  -Z(I  ,LKL,J) )**2)**1. 5 

VXU,K,P)=  VX  ( 1 ,  K ,  M)  ♦FLUX(I,LKJl,J)4(X(K)-X(LKL))/C8S 
VY(1,K,M)=  VY ( 1 , K , M )  ♦FcUX(I,LKL,J)*(Y( 1  »K»N )-Y( I *LKL , J ) )/CBS 
85  V  Z ( 1  ,  K  ,  M ) "  VZll.K.M)  ♦FLUX!  I,LKl, J)*(Zl  1,K,M)-Z( I,LKL,J )  )/CBS 
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NJ1*HJET-I 

NJ2**JET*2 

00  90  X*NJlvlu2 

I8*-K~4 

LB*K*% 

00  90  LKL-I B,LB 
DC  90  **l,HTHE 
OH  90  !*2r IOIS 
DC  90  J=1  »IITHET 

CB5  =  (  (XCK)-X(LKL)  )»*2  ♦  I  Yf  I*K»N  V  t  I* LKL  *  J  >  )**2  MZ(1*K,M) 

1  -ZH  .LKUJ))**2I**U5 

VXd»K»P)  =  VXd.K.P)  ♦  FLUXd.LKL, J l*(X<K l-X(LKL H/CBS 
VY{  L»K,K)  =  VY(i*K«f)  ♦  FLUXd.LKL,  J)*CYI  i,K,HI-Y(  I •LKL.J ) )/CBS 
SC  VZd.K.HI*  VZ  d  «  Kt  P)  +FLUXdt  lKL«J)'MZd«K,H)'Z(  l.LKL.J)  l/CBS 
or  95  K=NJR»LS2 
LU*B!N0(LS1«K*4) 

DC  95  LKL=NJL«LB 
or  95  H=J ,NTH£ 
or  95  I =2 , 1 01 S 
or  95  J*1 »MTH£  f 

C8S=  (IX(K|-^UKLU**2  ♦  CYd»K*Hl-Yd»LKLtJM**2  ♦U»ltK.M| 

1  -ZCI#LKL»«))**21**l*5 

VXtl,KfP*)=  VX'l.K.H)  *FLUXd.LKL,  J  >*  IX  (K  l-Xf.XL  d /CBS 
VY(1,K,K)=  VYd.K.fM  ♦FLUXd.LKL,J»*CY(l,K,M)-YJ  I.LKL.JD/CBS 
95  VZll.K.KI-  VZd.K.M)  +FLUX  d  •  LKL,  J  |*IZ(1,K|(')-ZI  I  *LKL  •  J  )  l/CBS 
N=N JET-1 
N?=N— 2 
N3*N-l 
N/*M-l 

XM*  (X(N)-X1N31»*(X(N)-XIN71  )/lXCN2)-X(N3))/(X(N2)-X(N7)) 
XN23  *X»N)-XCN2) )*(X|N)-X(N71 I/IXIN3I— XIN2T )/(X(N3)-X(N7) ) 

XN3 -  (X(Nl-XIN2d*(X(N)-X{N3)  )/ IX  I N7 )-X IN2 > )/< X I N7 )-X IN3 ) ) 

Ofl  UO  J»l,NTHE 

VXd,N.J)=  0,5*IVX  (1  ,Nt  J)  ♦XNl*VXd,N2,J?+XN2*VX(  1,N3.J) 

1  +XN3*VX ( l *N7 • J) ) 

VY I  1  *N # J)  =  0.5MVYti,iY,J»  ♦XN1*VYI1.N2.  JHXN2*VYI  l,N3,J» 

1  ♦XN3*VY(ltN7fJI ) 

110  VZ(1,N,J)=  0.5*lVZIlfN,JI  ♦XNl*VZd,N2,J)*XN2*VZ(  l,N3tJ) 

1  ♦XN3*VZ(1,N7»J)1 

180  DC  100  Kd.lS 
or  100  1*1 »NYHE 
UX(KtL)  =  UX'K,LHVXIi.K,U 
liY(  KtL  )  *  UY  J  K  «  L  )♦  VY  d  » K*  t.  * 

100  LZ  !  K  tL )  3  UZ(K,L>+V7d,K,L» 

RFTLRN 

END 


150 


non 


PROGRAM  LFTSRI 1 NPUT . OUTPUT .PUNCH. T APES* INPUT. f APE6*0UTPUT , 
1TAPE7*PUNCH,TAP£2»TAP£31 

READ  <5,501 )  ! START, I'TOP 
IF  IISTART-2)  10,20.30 
10  CALL  CHAIN1 

IF  (ISTOP-1 )  50,5 0,20 
20  CALL  CHAIN6 

IF  (ISTOP-2)  50,50,30 
30  CALL  CHAIN7 
50  CONTINUE 

WRITE  f 6,601 ) 

STOP 

501  FORPAT  <2151 

601  FORMAT  I IHO  ,////'»8X  ,24H***END  OF  COMPUTAT  ION***  I 
END 


SUBROUTINE  CHAIN1 


THIS  PROGRAM  CALCULATES  THE  DOWNMASH  CONTROL  POINT  MATRIX 


C 

C 


C 


I 


2 


0 1  MENS  I  ON  G  AUS  S 1 50 1  •  OL  OON 1 16 1 ,  DL  DDO  < !  6  > ,  FROWR  <  36  ,  50 ) ,  THE  TB I  2  0,  A )  , 

1  THE IAA( 30,16) , FORK <30, 16) , N0MB(20, 3 )«  NQ( 3 1, THETA ( 4),ETA(20), YDWASH 
2< 1501 , FLPOSI 10), NSEC <201, XOWASH< 150 ),YST AT(50),NCP( 50), 

3ARRAY ! 121 .TITLE (6) .GAUFFA 150 1 ,Y < 10 ) ,NSQt 10 ) , AMLE I  30), AMTEI 30 ) , 

AVI E ADI 3i),XLEA0<31),YTRAIL<31),XTRAIL<31) 

COMMON  GAUSS, THETB,THETAA,FORR,NOMB,NQ, THETA, ETA, YOWASH.FLPOS, NSEC 

DATA  PIE, XLEA0<1 ),VJ/3. 14159265,0., 16./ 

DATA  Vfll ,NSQ( l ) ,NSQ(2 I , NSQ(3 )/-l.0, 16, 16, 7/ 

DATA  TITLE/6HD0WNWA.6HSH  C0N,6HTR0L  P.6H0INT  M,  6HATRI X, , 6H  D  / 


ARRAY 

NYSTAT,  MS  PAN,  NCKORO,  NEED,  !TFL  AP,  NODE  1.N0DE3,  NAVI,  NOLEO 


REWIND  3 
THE  TA( 1 ) *0.0 
READ  (5,123)  ARRAY 
READ  (5,121) 

1, NO TED 
READ  (5,122) 

READ  (5,122) 

READ  (5,122) 

N0L=N01ED-J, 

N0T*N0TED-1 
READ  (5,122) 

READ  (5,122) 

READ  (5,122) 

READ  (5,122) 

XTRAIL(l) =2.0*FB0 
DC  l  I *2 ,NOLED 

XLEAD(I)*XLEAD(I-1)*AMLE< I-l)P(YLEAD( I ) 


SPACE, FMACH.FBO 
(YSTAT(I), 1*1, NYSTAT) 
(FLPOS(I) ,I=1,NFLAP) 


<AMLE(I),I*l,NOL) 

( ANTS  < I ) , 1*1 , NOT ) 

( YLEAD4 I ) »I*l»NOLED? 
(YTRAIL(I), 1*1, NOTED) 


.vi  Kim  i-  i  1 1 


CONTINUE 

DO  2  i*2, NOTED 

XTRAItm*XTRAlL(I-l)+AMTE(!-l>*(YTRAIl  m-YTRAIL(I-n) 


CONTINUE 

S- 1 .0/F8Q 

MCBS*MSPAN*NCHORD 


1 5 1 


BPF*2.0*F80 
WRITE  (6,124)  ARRAY 

WRITE  16,471  HSPAN.NCHGRD, NFL AP, NEED 

on  )  I*1,NFLAP 

WRITE  (6,98)  I,FLPOSII) 

FLPCSII I *ACOS I 1.0-2.0*FLP0S (III 
3  CONTINUE 

C  SET  UP  CONTROL  POINT  LOCATIONS 

IF  (SPACE)  6,9,7 

9  REAO  (5,121)  (NCP(i),I«l,NYSfAT) 

NCWASHsO 

LC2*0 

00  5  1*1 .NYSTAT 
NOWASH*NDWASH*NCP( I ) 

LCl*LC2+l 
LC2*LC2*NCP ( I ) 

REAO  (5,99)  (XOWASH(L) ,L*LC1,LC2) 

5  CONTINUE 
60  TO  10 

6  WRITE  (6,100) 

60  TO  96 

7  NXSTAT*1,0/ SPACE 

IF  (NEEO.EQ.O)  NXSTAT*NXSTAT+i 

00  9  I -1, NYSTAT 

L*NEED 

00  8  J*l ,NXSTAT 
XL*L 

K*( l-l)*NXSTAT+J 

XDWASH(K)*XL*SPACE 

L*L*1 

8  CONTINUE 

9  CONTINUE 
NDWASH*NXSTAT<MYSTAT 

10  IF  (N0WASH-150  12,12,11 

11  WRITE  (6,101) 

60  TO  96 

12  K*1 

00  16  I *1 , NYSTAT 
IF  (SPACE)  14,13,19 

13  NXSTAT*NCP(I) 

14  DO  15  J*1 ,NXSTAT 
YDWASH( Kl *YSTAT ( I ) 

K=K*l 

15  CONTINUE 

16  CONTINUE 

WRITE  (6,102)  NOWASH, FMACH 
BET A*SQRT ( 1 .0-FMACH*FMACH ) 

NAY3*0 
NA Y4*0 
NAY5*0 
NAV6*0 

IF  (NAY1.NE.0)  REAO  (5,121)  NAY 3, NAY4,NAY5,NAY6 
Nl*l 

N2*NCP( 1 ) 

IF  (SPACE. GE.. 02)  N2»NXST A ( 

00  95  I YSTAT*1 , NYSTAT 
NXPTS-N2-N1+1 
C 

C****  CONVERT  XDWASH  FROM  PERCENT  CHORO  TO  X 
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c 

OC  17  J*2,MOLEO 

IF  (YSTAT(IYSTAT).LE.YLEAD(JU  60  TO  18 
17  CONTINUE 

i 8  XLE=XLEAO( 4-1 1 ♦ ( YSTAT I IYSTAT I -YLE ADI j-1 )  )* AMLE (J- 1 ) 

00  19  J*2t NOTED 

IF  (VSTAT(IYSTAT).LE*YTRAIL(.J)  I  60  TO  20 
19  CONTINUE 

20  XTE*XTRAI LI J-l )♦ IYSTAT I IYSTAT l-YTRAIL I J-1 ) l*AMTE I J-i ) 
CHORO*XTE-XL£ 

DO  21  !*N1,N2 

21  XOMASH 1 1 ) *XLE+XOWASH II) *CHORD 
IF  (NAYi.NE.O)  WRITE  16,104) 

WRITE  (6,103)  N1,N2,YSTAT IIYSTAT) 

C 

C+***  SET  UP  SPANWISE  INTEGRATION  INTERVALS 
C 

AULT*YSTATI IYSTAT) 

NRAS*4 

IF  (AULT. LT.. 69)  GO  TO  22 
NRAS*3 
H=1 .O-AULT 
GO  TO  23 

22  IF  (AULT. GT.. 851  H*( l.C -AULT )/2.0 
IF  IAULT.LE"  85)  H*.l 

IF  ( AULT. I'... 57)  NRAS*5 
IF  (AULT.GT..8)  NSQ(4)*10 
IF  (AULT.LE..8)  NSQ(4)=16 
IF  (AULT. GE.. 57)  GO  TO  23 
Y(5l*AULT+H+.3 
NSQ(5)*10 

IF  (AULT.GT..4)  NSQ(5)»7 
IF  (AULT.LE..3)  NSQ(3)*16 

23  Y 1 2 ) *AULT-H-. 3 
Y ( 3 ) *AULT-H 
YI4)*AULT*H 

Y ( NRAS+ 1 ) *1 .0 
IF  (NAY3 )  24,27,24 

24  WRITE  (6,1031 
JR2«1*NRA$ 

00  25  JR*1 , JR2 
WRITE  (6,106)  JR,Y (JR) 

25  CONTINUE 

DO  26  JR*1 , NRAS 

WRITE  (6,107)  JR.NSQIJR) 

26  CONTINUE 

C  START  BIG  REGION  LOOP 

C  CLEAR  ROWS  OF  D  MATRIX 

27  DO  28  K*l,NXPTS 

DO  28  J*1,MCBS 

28  FROWR( J»KI *0.0 
LAP*0 

IFL=0 

DO  90  J»1 ,NRAS 

C  NOW  SET  UP  SPANWISE  AND  CHOROWISE  QUADRATURE  STATIONS 
C  FOR  REGULAR  AND  SINGULAR  REGIONS 

NSTAT-1 

IF  (J.EQ.3)  GO  TO  33 

C  ESTABLISH  SPANWISE  QUADRATURE  FOR  A  REGULAR  REGION 
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] 


FOPT$«NSG(.l) 

HNUHB*FOPTS 
IF  (NAY4)  2 9,30*29 

29  WRITE  (6*108)  .) 

WRITE  (6*109) 

30  CONTINUE 
N0NSNG*1 
INDEX*FOPT$ 

GAUSS (l)*FOPTS 

CALL  FNUO  (FOPTS, GAUSS (2), GAUSS (INOEX+2)) 

NC0HW»HNUHB«-2 
ETA JL*Y ( J) 

ETAJX*Y( J*l) 

PHI  JL*ACC'5(  -ETAJL) 

PHI JK«ACOS(-ETAJK) 

PHI l*.5*( PHI JL^PHI JK) 

PHI 2*.54( PHI JK-PHl JL) 

00  32  K*1 *HNUMB 

PHI  J*PHI UPHI2*GAUSS  (K<!  1 ) 

ETA(K)*-COS (PHI J) 

IF  (NAY4)  31*32*31 

31  WPITE  16*125)  GAUSS ( K+l ) ,PH1J«ETA(K I* GAUSS (NCOWW ) 

NCOWHaNCCMU*! 

32  CONTINUE 
GO  TO  39 

C  ESTABLISH  SPANWISE  QUADRATURE  FOR  THE  SINGULAR  REGION 

33  IF  (NAY4)  34,35*34 

34  WRITE  (6*110) 

35  CONTINUE 
MNUMB*NSQ( J) 

D6L*H/3*0 
ETA(l)*Y( J) 

ETA(2)*ETA(l)+0EL 

ETA(3)«ETA(2)40EL 

ETA(4)«AULT 

ETA(5)-ETA(4)*DEL 

ETA(6)«ETA(5)*DEL 

ETA(7)*Y( J*i) 

IF  (NAY4)  36,38,36 

36  00  37  K*l ,7 

WRITE  (6*111)  ETA(K) 

37  CONTINUE 

38  N0NSNG*0 

39  CONTINUE 

DO  49  L«1,HNUNB 

C  MNUPB  *  NO  OF  SPANWISE  STATIONS  IN  A  REGION 

C  CALC.  X  C1DINATE  AT  L.E.  AND  T.E.  FOR  ATA 

ATA-ETA(L) 

K2«N0LED-1 
IF  (ATA)  40,41,41 

40  ATA*ABS(ATA) 

41  00  42  K-=l  ,K2 

IF  (YLEAD(K*1>-ATA)  42,43,44 

42  CONTINUE 
GO  TO  96 

43  DlOON(L)*XLEAf'('<*l) 

GO  TO  45 

44  DLDDK‘(  L ) *XLCAD( *)♦  ( XLEAO ( «♦  l ) -XLE  AD(K  )  )*  ( ATA-YlEAO(K )  )/(  YLEAD(  K+l ) 
l-YLEAO  <  K ) ) 
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45  K2*N0TED-1 
00  46  K=l,K2 

IF  (YTRAIL(Ktl)-ATA)  46.47.48 

46  CONTINUE 
60  TO  96 

47  DLODO(L)»XTRAIL<K+l) 

60  TO  49 

48  OLODO(L)*XTRAIL(K)  +  tXTRAIL(K*l)-XTRAIL(Kn*IArA-YTRAIL(K))/f  YTRAIL 
llK+ll-YTRAIUKM 

49  CONTINUE 

DO  89  I*N1.N2 
IX*I-NU1 

IF  INCHORD- NFL API  96.83.50 

50  00  82  L*i .MNUMB 

C  MNUMB-NUMBER  OF  SPANNISE  STATIONS  IN  A  REGION 

YO*YSTAT I IYSTATI-ETAIL) 

CONP»ABS(BETA*S*YO) 

DLON* I OLOON ( LI *01000 I L ) J/BOF 
DL£NJ*(OLDDO(L)-OLODN(L) l/BOF 
DL0NJ«DLDN-S*XOWASH( I ) 

STE VEN=DLDN J/DLENJ 
DLFNJ*A8S( STEVEN) 

X$D*XDWASHin*S-DlDN 
IF  (LAP)  51*52.51 

51  THETFL«FLPOS(IFL) 

XFL»COSITHETFL) 

XFLAP*IOLON-XFL*OLENJ)*FBO 

52  IF  (NAY4I  53.54.53 

53  WRITE  (6.112)  L.ETA(L) *Y0 
BnDN*F80*DLDN 

WRITE  (6.120)  OLODN(L) .OLOOOtLI.BOON 

54  CONTINUE 

IF  (OLENJ)  55.55.56 

55  NSEC(L>»0 
GO  TO  82 

56  IF  ICOHP-IO.O)  57,57,58 

57  IF  (DLFKJ-l.OI  60,58,58 

58  IF  (LAP)  59,67,59 

59  THE  TA(2 )  *THETFL 
GO  TO  66 

60  I F  (LAP)  61,65,61 

61  IF  (XOWASH(I)-XFLAP)  63,65,62 

62  THETAI2J-THETFL 
THETA! 3) *ACOS( STEVEN) 

GO  TO  64 

63  THETA! 2 )*ACOS( STEVEN) 

THETAI3)*THETFL 

64  N0I>3 

GO  TO  68 

65  THE  TA( 2 )*ACOS( STEVEN) 

66  NO! ~2 

GO  T0  69 

67  NOI *1 
NOU)«VJ 
GO  TO  70 

68  NQ( 3)=10 

69  N0( 2)*10 
N0( 1 ) =10 

C  NUMBER  CF  CHORDWISE  SECTIONS,  QUADRATURE  POINTS,  AND 
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C  LIMITS  HAVE  ESEN  ESTASLISHEO 

TO  NSEC(LI*NOI 

N0M(L|2)4I0I2) 

MOMS I L, 3)  **K2(3) 

THETA(MQI*l)*PIE 

Th£I8IL,11*THETAU! 

THEfaiL,2l*THETAI2» 

THE fB!L»3I*TH£TA(3l 
THEIBIL,4I*THETAI4) 

IF  (NAY4)  71,72,71 

71  WRITE  (6,1131  HOI 

72  C GUT! HUE 

C  MOM  SET  UP  QUADRATURE  POINTS  AND  INTEGRANDS 

C  FOR  CHORCWl S£  QUADRATURE 

DC  81  ICQ=i »NQI 
NC-NQ(!CQI 
IF  (KAY4)  73,74,73 

73  MRirf  (6.114)  ICC,THETAi!CQ),THETA(ICQ*l),MQ 
WHITE  (6,115) 

74  CONTINUE 
NFEL*HQ*2 
FOPTS=NO( ICO) 

GAUFFAI 1 ) =FOPTS 
I^Or.X*FOPTS 

CALL  FNUD  IFOPTS,GAUFFA(2), GAUFFAI INOtX  +  2)  ) 

PT1=( THETA( ICO*l )»THETA( ICQ) )/2.0 
P?2=( THETAC ICQ*1 )-THETA( ICO) 1/2.0 
DC-  80  IUI.HQ 
IF  (THETA(ICQ) )  96,76,75 

75  PHI J*PT1+PT2«GAUFFA(K*! ) 

GC  TO  17 

lb  PHI j*PTl *11 .0*GAUFFA(K*1 ) ) 

77  XO*XSO>DLENJ*COS (PHI J) 

FKER=FK£RNL(XO,YO,S,FNACH) 

THETAA(N$TAT,L)>PHIJ 

FORRI NSTAl, L) *FKERAGAUFF A( NFEL  ) *S IN ( PHI J  ) 

IF  (NAY4)  78,79,78 

78  WRITE  (6,116)  GAUFFAI  K*l )  ,GAUFFA  ( NFEL  >,  PHI  J,XO,  FK.  ER,  F  JRR  (NSTAT.L  i 

7<i  CONTINUE 

NFEL*NFEL»l 

NSTAT«NSTAT*1 

80  CONTINUE 

81  CONTINUE 
NSTAT*l 

82  CONTINUE 

CALL  MATROW  (MSPAN, NCHORD,NONSNG, H, I,NAY5, NEED, NFLAP ,  PHI  JK, PHi JL, 
ILAP,IFL»I X, FROWR ) 

83  IF  (NFLAP)  87,87,84 

86  LA>=1 

IF  iIFl-NFLAP)  85,86,96 

85  IEL=IFL*1 
GO  TO  50 

86  »FL=0 
L  AP  =  0 

87  IF  (  NA  Yt> )  88,89, °8 

88  WRITE  (6,117)  ( Fk  ;  \i  (ND,  IX)  .NO*  1,  "CBS  ) 

89  CONTINUE 

90  CONTINUE 
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C  MATRIX  ROWS  FOR  ALL  CONTROL  POINTS  ON  A  CHORD  ARE  COMPLETED 
DO  94  IX*l,NXPTS 

WRITE  (3)  (FROWR (NO, IX ) ,ND*l«  MCBS ) 

IF  (NOOE3)  91,92,91 

91  WRITE  17,1181  (FROWR (NO, IX ),ND=1» MCBS  1 

92  IF  (NAY6)  93,94,93 

93  WRITE  (6,119!  (FROWR (ND, IX > ,ND«1, MCBS ) 

94  CONTINUE 

IF  UYSTAT.EQ.NYSTAT)  GO  TO  95 
Nl»N2*i 

IF  (SPACE. IT. .02)  N2*N2*NCP( IYSTAT+1 ) 

IF  (SPACE. GE.. 02)  N2*N2*NXSTAT 

95  CONTINUE 

C  ALL  MATRIX  ROW  CALCULATED 

C  GO  TO  MATRIX  PRINT  SUBPROGRAM 

IF  (N00E1.NE.0)  CALL  MPRINT  (TITLE, 6, 3«”DWASH» MCBS ) 

RETURN 

96  STOP 
C 

97  FORMAT  (26H1N0.  OF  SPANWISE  MODES  *  I3/26H0N0.  OF  CHORDWISE  MODES 

1  *  I3/26HONO.  OF  FLAP  MODES  -  I3/26H0C0TANGENT  MODE,  NEED  » 

2  13) 

98  FORMAT  ( 17H0P0SI TI ON  OF  FLAPI3,3H  *  F8.6) 

99  FORMAT  (12F6.0) 

100  FORMAT  (25H0THIS  OPTION  DISCONTINUED) 

101  FORMAT  (1H150HNUMBER  OF  DOWNWASH  CONTROL  POINTS  GREATER  THAN  150) 

102  FORMAT  (1H119XI4,1X23HOOWNWASH  CONTROL  POINTS, 5X, 9HMACH  N0.-E14.8) 

103  FORMAT  (24HODOWNWASH  CONTROL  P0INTS14,5H  TO  1 4, 5X2HY*E 1 5. 8 ) 

104  FORMAT  (1HI) 

105  FORMAT  ( 75H0SPANWI SE  QUADRATURE  INTERVALS  AND  NUMBER  OF  QUADRATURE 
1  POINTS  PER  INTERVAL) 

106  FORMAT  (3H0Y( 12, 4H)  *  F10.7) 

107  FORMAT  (5H0NSQU2.4H)  *  13) 

108  FORMAT  ( 1H115X,15HRFGUL4R  REGION  I2.1ZH  INTEGRATION) 

109  FORMAT  (46H0STAT IONS  AND  WEIGHTS  FOR  SPANWISE  INTEGRATION/IH  ) 

110  FORMAT  ( IH1 15X,27HSI NGULAR  REGION  INTEGRAT ION/ 33H0SPANWI SE  STATION 
IS  FOR  QUADRATURE) 

111  FORMAT  (6H0ETA*  E15.8) 

112  FORMAT  (48H1STATI0NS,  WEIGHTS,  AND  INTEGRANDS  FOR  CHDRDW I SE/32H  QU 
IAORATURE  AT  SPANWISE  STAT ION, I5/6H0ET A*  E15.8, 5X, 4HY0*  E15.8/1H0) 

113  FORMAT  S3OH0NO.  OF  CHORDWISE  INTERVALS  *  13) 

114  FORMAT  (24HOCHORDWISE  INTERVAL  NO.  I3/13H  LIMITS  FROM  Fil.8,5X,3HT 
10  Fli.8,8H  RADI ANS/28H  NO.  OF  QUADRATURE  POINTS  *  13) 

115  FORMAT  (1H0,8X,10HGAUSS  STA. , 10X.9HGAUSS  WT..13X, 5HTHETA, 16X,2HXQ, 
116X  , 6H KERNE L,1 3X ,9HGAUSS  FN./1H0) 

116  FORMAT  (6E20.8) 

117  FORMAT  ( 1H010X ,39HPART 1 AL  ACCUMULATED  SUM  OF  ROW  CLEMEN VS/1H0 
16E20.8/ ( 1H  6E20.8) ) 

118  FORMAT  ( 1 P5E14.7 ) 

119  FORMAT  (IHOIOX, UNCOMPLETED  ROW/IH  /( IH  6E20.8)  ) 

120  FORMAT  (25H0LEADING  EDGE  AT  ETA,  X*  F9.6/26H  TRAILING  EDGE  AT  ETA, 
1  X»  F9.6/22H  NID-CHORO  AT  ETA,  X=  F9.6/IH0) 

121  FORMAT  (1415) 

122  FORMAT  (7F10.0) 

123  FORMAT  (12A6) 

124  FORMAT  < 1HI 54X , 1 1HCHAIN  ( l , 8 )/50HOCALCUL AT  ION  3F  DOWNWASH  CONTROL 

1P0INT  MATRIX  FOR  ,I2A6) 

125  FORMAT  ( IH010X7HGAU$S=  F14.8, 2X6HPHI J*  F 14.8, 2X, 5HEYA*  F14.8,2X4HW 
lTx  F14.8) 
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ENO 


I 


SUBROUTINE  CMAIN6 

THIS  LINK  CALCULATES  THE  LEAST  SQUARES  INVERSE  OF  0 
D  MATRIX  IS  ON  TAPE  3  OR  READ  FROM  CAROS 
INVERSE  IS  STOREO  ON  TAPE  2,  POSITION  ZERO 

DIMENSION  ARRAY ( 12 ) «TITLE  19) 

READ  (5*6)  ARRAY 

READ  (5,5)  NROW*  NCOL r NODE  3, NODE5, NODE6, N AY 
WRITE  16,7)  ARRAY 

CALL  PINYRSi3,2,NAY,NODE3,NODE6,NROW,NCbL) 

IF  (N0DE5)  3*4,3 
DATA  QOOOHL/6HINVERS/ 

TITLE  (U*QCQOHL 
DATA  U00IHL/6HE  OF  0/ 

TITLE ( 2 ) «QOOIHL 
OATA  Q002HL/6HOWNWAS/ 

TI TLE  >  3 ) »0002HL  1 

DATA  Q0U3HL/6HH  CONT/ 

TITLE (4) *Q003HL 
DATA  Q00AHL/6HRUL  PO / 

TITLE(5)»Q004HL 
DATA  Q005HL/6HINT  MA/ 

T!TLE(6)»0005HL 
DATA  Q006HL/6HTRIX  / 

TITLEI7)«Q006H!L 

CALL  MPRINT  CTITLE,T,2,NC0L,NR0W)  i 
RETURN 

FORMAT  11015) 

FORMAT  I 12A6) 

FORMAT  ( 1H150X,! 1HCHAIN  (6,3 ) /42H0 INVERT  DOMNW ASH  CONTROL  POINT  MA 
1TRIX  FOR  ,12A6i 
ENO 


SUBROUTINE  CHAIN7 
CALCULATES  PRESSURE  DISTRIBUTION 

DIMENSION  Mil, 150)*ANM (1,75), ETA( 50 )»CNP( 75),CLNP ! 75) , GEE! 75 )  ,BEN( 
150) ,ARM( 50) ,CLL0C(20),CML0C (20), ALLOC! 20 ),CDLOC( 20),EED£L ( 10 ) , 
2EPSLN(10),CK(6,10) ,CA( 12 ) ,CKA( 12) , DINVRS ( 1, 150 ) ,CEE< 150, 36 ) , P< 1 , 

31 50 ) »CHORD( 51 ) , WHY ( 5 1 ) , FT  META (20 ) *  PS  I ( 50 ) * CP( 50, 5C ) »DEl VA { 51  ),A(50 

4 )  t  B  ( 50)  ,C  ( 501  ,D(50),ALFA(i'0),0ELFL(  10),WW(  1, 150 ) ,  FLPOSl  10),  BETA  (20 

5)  ,YP(20) ,  NX  DP  (20),  ARRAY  (12.' 

C 

COMMON  U ,ANM, ETA, CNP.CLNP  ,GE." , BEN,  ARM, CLLOC,CMLCiC .  ALLOC, COLOC, 
1EEDEL,EPSLN,CK,CA,CKA,CL,CM,CDL,N,M,NU,N0N,NFLAP,PI,PLBA,NETA,B0, 
2BA,B8AR,PIRC,NPSI 
C 

RFAD  (5,166)  ARRAY 

READ  (5.164)  N, M.NYP, NROWS, NET A.NCHORO, NFL AP, NA Y» NPSI 
READ  (5,164)  NALFA.NBET A, NEED.N0DE6, N0DE7, NW 
RF  D  (5,165)  BO, SPACE, YF.OPSI 
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READ  (5*167)  f VP«I I  *  1*1 *NYP> 

REAO  (5*167)  (ETA( f ) *  1*1, NET A) 

REAO  (5*167)  (BETAd  )*;*!, NBETA) 

READ  (5*167)  (ALFA (I )»I*ljNALFA) 

READ  (5*167)  (FLPOSI I ) * I*1*NFLAF) 

REAO  (5*167)  (CHORD) I ) » I*l»NCHORD) 

READ  (5*167)  (WHY! I ) »I*l,NCHORO) 

READ  (5*167)  (DELTA) I ) * I*l,NCHORD) 

WRITE  (6,168)  ARRAY 
IF  (YFl  2,3,2 

2  WRITE  (6,162)  YF 

GO  TO  4 

3  WRITE  (6,163) 

4  CONTINUE 

IF  (SPACE)  5,6*5 

5  NXDDP*NROW$/NYP 
GO  TO  7 

6  REAO  (5,169)  (NXOP( I ) * I*l»NYP ) 

7  NCN*N*M 

RAD *57.29578 
PI *3. 14159265 
IF  (NFLAP)  158,13*8 

8  DO  12  1*1 .NFLAP 

DELFL( I ) *DELFL ( I )/RAD 

IF  (FLP0S(I)-0.5)  10*9,11 

9  FLPOSI I )*0.5*PI 
GO  TO  12 

10  FLPOSI I )*ACOS ( 1.0-2.0*FLP0S (II) 

GO  TO  12 

11  FLPOSI  I ! *0»  5*PI ♦A5IN(2.0*FLPOS 1 1 1-1.0 ) 

12  CONTINUE 

C  CALCULATE  CO-ORDINATE-  OF  PRESSURE  POINTS 

13  IF  (OPSI)  14,16*15 

14  RFAD  (5,167)  (PSI ( I ) , I*1»NPSI ) 

GO  TQ  19 

15  NPSI*1.0/DPSI 

IF  ( 50-NPSI )  16,17,17 

16  WRITE  (6,171) 

GO  TO  159 

17  J*> 

18  XJ*J 

PSI ( J) -X J*DPSI 
J-J*l 

IF  ( J-NPSI )  18,18,19 

C  NOW  CALCULATE  ELEMENTS  OF  C  MATRIX 

19  1  =  1 

20  ETTA*ETA( I ) 

ROOT-SORT (l.0-ETTA*42) 

IF  (NCHORD-l )  158,21,22 

21  CC-CHORD(l) 

GO  TO  27 

22  NESS-2 

23  IF  (ETTA-WHY(NESS) )  26,25,24 

24  NFSS-NESS+1 
GO  TO  23 

25  CC-CHORD ( NE  SS ) 

^0  TO  21 

26  Ct*CHORO(  NESS-1  )-(CHORD(NESS-l ) -CHORD (NESS  >  »*(  ETT  A-WHY(  NCSS- .1) ) /< 
l WHY ( NE  SS l-WHY ( NESS-i ) ) 
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27  PIRC-I  16.0*PI*RQ0T)/CC 
J=1 

28  PSII-PSKJ) 

KR»tI~ll*NPSI*J 

IF  IPSI 1-0.51  30,29,31 

29  THETA-PI/2.0 
GO  TO  32 

??  THETA-AC0S(1.0-2.0«'PSII) 

GO  TO  32 

31  THETA-PI/2.0*ASIN(2.0PPSI I-l.O) 

32  NU-N-NFLAP 

IF  (NEEO)  33,34,33 

33  Nl-2 
NX*0 

GO  TO  35 

34  N1*I 
NX-1 

GO  TO  36 

35  F  THETA ( 1 )  =COS(THET A/2.0)/SIN(T(IETA/2.0) 

36  00  37  NN-N1 ,NU 
ANN-NN-UNX 

FTHETA(NN)-I4.0*SIN( ANN*THET  A ) 1/2.0** ( ANN* 2.0) 

37  CONTINUE 

IF  (NFLAP)  15P ,40,38 

38  NUU«NU*1 
NFR=1 

DO  39  NN-NUU.N 

AUX  =  SI  N  ( <  FLPOS  (NFR)*-THETA)/2.0) 

AUY-SI N( ( FLPOS (NFRJ -THETA  1/2.0) 

AUXY*ABS( AUX/AUY) 

F  THETA! NN)  ■*  ( ALOG  ( AUXY I  )/PI 
NFR=NFR*1 

39  CONTINUE 

40  E 

NN-1 

41  EM-0.0 

IF  (ETTA)  158,42,43 

42  EIEK-1.0 
GO  TO  44 

43  ETEM»ETTA**EM 

44  Cc!!(KR,K)*PIRC*FTHETA<NN)*ETEK 
EM-EM+2.0 

K=!Ul 

IF  (EM/2. 0+ i.O-EMM)  43,43,45 

45  NN-NN+l 

IF  (NN-N)  41,41,46 

46 

IF  (J-NPSI)  28,28,47 

47  I *1 ♦! 

TF  ( I-NETA)  20,20,48 

48  NPQINT-NPSl *NETA 
REMIND  2 

IF  (N00E6)  49,51,49 

49  DO  50  I » l, NON 

READ  (5,170)  (DINVRS(i,J)» J-l.NROWSi 
WRITE  (2)  (DINVP.Sd,  J ) , J- 1 , NROWS  ) 

50  CONTINUE 
RFfcJNO  2 
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51  (F  (NAY)  52*55,52 

C  PRINT  C  AND  0  MATRICES 

52  WRITE  (6,172) 

On  53  1*1, NON 

READ  (2)  (01 NVRS ( 1 »  J ) »  J=  l » NROWS ) 

WRITE  (6,173)  (01NVRS(1,J),J*1, NROWS) 

53  CONTINUE 
REWIND  2 
WRITE  (6,174) 

00  54  I*i ,NP0INT 

WRITE  (6,173)  (CEE ( I ,K) ,K*1,N0N) 

54  CONTINUE 

55  NI*NCH0R0-1 

C  NORMALIZE  X  DIRECTION 

00  56  I*1,NCH0R0 
DELTA! I )*DELTA( I )/B0 

56  CONTINUE 

C  CALCULATE  A  ANO  FOR  WING  REGIONS 

OC  57  1*1, NI 
ETAA*WHY (1*1  * -WHY ( I ) 

B(  I  )*0.5*(C..JRD(  I  ♦  l  S  -CHORD!  I )  )/ET  A  A 
IF  (ABS(B(I ) )-1.0E-05)  201,201,202 

201  B(I)  *  0.0 

202  CONTINUE 

A(I )*0.5*CH0RD(I )-B(l)*WHYd) 

57  CONTINUE 

C  NOW  CALCULATE  AVERAGE  ANO  MEAN  CHORDS 

BA*0.0 
BAR-0. 0 
00  58  1*1 ,NI 

BA* BA* A ( 1 1  * (WHY ( I+l ) -WHY ( I ) )+0.5*B ( I )* (WHY d*l  !**  2-WHY( I »**2) 
8AR=BAR* ( A( I ) 4*2 )* (WHY ( 1*1 )~WHY (I  )  )  *A(  I  )*Bd )* (WHY! 1  + 1 1**2- WHY( I )♦ 
1*2)*(B( I ) **2) *( WHY (1*1 )** 3-WHY (I )**3) /3»0 

58  CONTINUE 
CHA=2.0*BA 
BBAR-BAR/BA 
CHAR-2. 0*BBAR 

C  CALCULATE  LOCATION  OF  MEAN  CHORD  ANO  MOMENT  AXIS 
1  =  1 

59  IF  (CBAR-CHORO (’'♦!) )  60,61,61 

60  IF  ( l*l-NCHORD)  200,61,61 
200  I  *  1*1 

GO  TO  59 

61  CONTINUE 

IF  (B(I))  203,204,203 

204  YBAR  *  0.0 
GO  TO  205 

203  YBAR  -  (BBAR-AU  > ) /B  ( I ) 

205  CONTINUE 

P$I 0*DELTA( I ) * ( DELTA! 1*1 )-OELTA( I ) )*(YBAR-WHY( I ) ) '(WHY( I ♦1)-WHY( I ) 
l)+BBAR/(2.0*B0) 

PSI OBO*PSIO*BO 

C  NOW  CALCULATE  C  0  rUR  R.  GIONS 
00  62  1*1 ,NI 
ETAA*WHY(I*1) -WHY ( I  !• 

0(1  )*(OELTA(I*l)-OELTAlI) )  Ei  AA 
Cd  )*DEITA(I)-PSI  0-D  ( I )  *WHY  ( I  ) 

62  CONTINUE 

C  CALCULATE  LOCAL  MOMENT  ARMS  AND  SEMJCHOROS 
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!  =  1 

63  J-2 

64  IF  (ETA(I)-WHY(J))  66.66,65 

65  J*J+1 

60  TO  64 

66  Ji*J-i 

BEN (I )*A( Jl)+B(Jl)*ETA(I ) 

ARM(I)*C(Jl)*0(Ji)<IETAlI) 

I»I*l 

IF  (NET3-I)  67,63.63 

67  WRITE  (6,175)  CHA,CBAR,PSIOBO,YBAR 

CON* (PI  4*2 )  /  ( BA*BBAR ) 

DO  68  1*1,75 
CNP(I)*0.0 

68  CLNP( I ) *0.0 
L*0 

IF  (NEEO)  69,73,69 

69  L*L*l 
MM*  l 

70  00  71  I *1 ,NI 
ETAO*MHY(I) 

ETAl*WHY  ( l*-i ) 

MP*2*( MM-l I 

RMI*FRMI (ETAO.ETAl.NP) 

PHI *FPMI ( ET  AO.ET  Al ,MP) 

CNP(U*CNP(L)4(  (A(  I)42.0*B0*C(I))*RMl*(B(  I)+2.04BO*Dm  >*PMI  )*CON 

71  CONTINUE 
MM*MM+1 

IF  (MM-M)  72,72,73 

72  L*LU 

GO  TO  70 

73  IF  (NU-l)  158,74,75 

74  IF  (NEEO)  85,75,85 

75  L*L*1 
MM*1 

76  DO  77  1*1, NI 
ETAO*WHY( I ) 

ETAU  WY(I  +  1) 

MP*2*‘ MM-1) 

RMI-FRMI (ETAO.ETAl.NP) 

PHI *FEMI ( ETAO.ET  A1 ,MP) 

CNP(L)*CNP(L)*((A(I ) ♦BO*C ( I ) )*RMI  MB  ( I )*60*D( I))* PM I) *C ON 

77  CONTINUE 
MM*MMM 

»F  (MM-M)  78,78,79 

78  l^LM 

60  TO  76 

79  IF  (NU-2 )  85,8f,8l 

80  IF  (NEED)  85,81,85 

81  1  =  01 
MM*1 

82  00  83  1*1, NI 
E  TAO*WHY ( I ) 

E  TA l*WHY (1*1) 

MP*?*(MM-1) 

RMI*FRMI (ETAO.ETAl »MP) 

PNI=FPMI (ETAO.ETAl.MP) 

CNP(L)*CNP(L)-0.125*(A( I )*RMI*B( I )*PMI)*CON 

83  CONHNUE 
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84 


IF  IMH-M)  84,84,85 
L=L+i 
GO  TO  82 

85  IF  (NFLAP)  158,92,86 

86  DO  87  I *1 ,NFLAP 
5N=SINIFLPOS(in 
csN=cosiFLPosnn 

EPSLM  I  l*SN 

EEOELI I ) *SN*( l,0-.5*CSN) 

87  CONTINUE 
Ll«L*l 
L2  *NU*M 

00  88  L*L1,L2 
CNP(L)=0.0 

88  CONTINUE 
L  =  L2 

DO  91  IR*l, NFLAP 
00  90  MM*l,H 
L*L*1 

CNP(L)*0*0 

MP*2*iMM-i) 

00  89  1*1  ,NI 
ETAQ*WHYI I ) 

E  TAl*MHYf 1*1 ) 

RMI*FRMI(ETAO,ETAl,MP) 

PHI *FPMI (ETAO,ETAl ,MP) 

CNP(L)*CNP( L)  +  (2.0PCON/PI )*( (EEOELI IR)*A( I )-*BD*EPSLN<  IR)*CI I ) )*RMI 
l+IEEDELIIR)  *81 1 ) +BO*EPSLN( IR)*D( 1 1  )*PMI ) 

89  CONTINUE 

90  CONTINUE 

91  CONTINUE 

C  CNP  COEFFICIENTS  HAVE  BEEN  CALCULATED  FOR  MOMENT  EQN 

C  NOW  CALCULATE  COEFFICIENTS  OF  L*FT  EON  -  CLNP 

92  C0NST=IPl**3)/(4.0*BA) 

L=0 

IF  (NEED!  93,98,93 

93  L  =  L*  l 
CLNP(L)*4.0*C0NST 
IF  (M-II  98,98,94 

94  L*L  +  1 
CLNP(L)*CONST 

IF  (M-2 )  98,98,95 

95  L=L*1 
CLNP(L)*0.5*C0NST 
If  (H-3)  98,98,96 

96  DO  97  MM*4 , M 

L*L*1 

PM*2* ( MH-1 I 

CLNPUi  ~(PM-l,9)*CLNPIL-l)/(PM*2.0) 

97  CON  1 1 NUE 

98  IF  (NU-1)  158,95  -100 

99  IF  (NEED)  105,100,105 

100  L  =  L+ 1 
CINP(L)*2.0*C0NST 

IF  (M-l)  105,105,101 

101  L  =L  + 1 
CLNP(L)=0,.5  ♦CONST 

IF  (M-2)  105,105,102 

ir.:i 


102  L=L*1 

C L NP I U *0 . 5 *0. 5 *CONS T 
IF  (H- 3)  105,105,103 

103  00  104  MN*4,H 
L=L*l 

PM*2*IMM-l) 

CLNP(L)-IPH-1»0) *CLNPIL-l )/ IPN+2.0) 

104  CONTINUE 

105  IF  (NFLAP)  158,113,106 

106  L1*I>1 

00  107  L«Ll,L2 
CLNPIL)*0.0 

107  CONTINUE 
L=L2 

COST*CONST/PI 
DO  112  IR*1, NFLAP 
EPSLON*EPSLN( IR) 

L  =  L+1 

CLNP(L) *4.0*C0ST*EPSL0N 
IF  ( M-l »  158,112,108 

108  L=L+l 

CLNP(L) *COST*EPSLON 
IF  (M-2)  112,112,109 

109  L -L+l 

CLNPI LI =0.5*C0ST*EPSL0N 
IF  (H-3)  112,112,110 

110  DO  111  MM=*4,M 
L-L+l 

PM*2MHM-1) 

CLNP(L)*< PH-1.0) ♦CLNP(L-1)/<PM*2.0) 

111  CONTINUE 

112  CONTINUE 

C  CLNP  HAVE  BEEN  CALCULATED  -  NOW  PRINT  COEFFS 

113  IF  (NAY)  114,115,114 

114  WRITE  (6,176) 

WRITE  (6,173)  (CLNP(L) ,t*l,NON) 

WRITE  (6,177) 

WRITE  (6,173)  (CNP(L),L=l , NON ) 

C  SET  UP  A  TABLE  OF  GEE  FOR  CD  CALCULATION 

115  PLBA=(2.0*PI**5)/BA 
GEE ( 1 ) =0. S 

GEE ( 2 ) *0.  125 
J=4*(M-l ) 

IF  (2-J)  116,126,126 

116  GO  1)7  JJ=4,J,2 
JJJ--(  JJ+2)/2 

E JJ-JJ 

COE-1 E  JJ-. .0)/(EJJ+2.0) 

GEE  (  J.l  J>  *Co«I*GEE  ( J  JJ-1 ) 

117  CONTINUE 

C  START  CAMBER  LCOP 

00  157  I  W  =  1  ,NW 
IF  <  NODE 7 )  118,123,118 

118  IWl^l 

00  122  I Y  =  1  ,  NYP 
IE  (SPACE)  120,?  19,120 

119  IW2=NXDP< IY)>IW1-1 
GO  TO  121 

120  IW2-NX0DPMW1-1 
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121  READ  <15-1701  ( W(  1  *  I WX)  ,  IWX*IWi,  IW2 ) 
!W1*IM2*1 
'  122  CONTINUE 

GO  TO  124 
123  CONTINUE 

C123  CALL.  CAMBER  (NXDP,NEEO,$»ACE, NYP) 

C  THIS  SUBROUTINE  HILL  CALCULATE  W  MATRIX 

124  WRITE  (6»1T8)  IW 
WRITE  (6,179) 

WRITE  (6,173}  (W(l,I)«I*l, NROWS I 
on  125  KW-1, NROWS 
W(1,KW)*ATAN(W(1,KW)) 

125  CONTINUE 
WRITE  (6,180) 

WRITE  (6,173)  (W(l, I), 1*1, NROWS) 

C  START  BETA  LOOP  -  (INCIDENCE  ANGLES) 

126  00  156  KK~l,NBETA 

C  NOW  START  ALFA  LOOP 

DO  155  K*l,NALFA 
RALFA-ALFA(K)/RAO 
ANGLE*BETA(KK)*ALFA(K) 

R ANGLE* ANGLE/ RAD 
IF  (VF)  158,127,129 

127  00  128  1*1, NROWS 
ARG*W( 1 , I )-RANGLE 

MWI 1,1 ) *SIN(ARG)/COS(ARG) 

128  CONTINUE 

WRITE  (6,181)  BETA(KK),ALFA(K) 

WRITE  (6,173)  (HW(l, J),J*l, NROWS) 

GG  TO  138 

129  SYL*5iN(2.0*RALFA)/2.0 
L'-l 

DO  137  1*1, NYP 
IF  (YP(I)-YF)  130,131,131 

130  ATSLP*0.0 
GO  TO  132 

131  SLOOP*SYL*(YF/YP(I ) )**2 
ATSLP*ATAN( SLOOP) 

132  IF  (SPACE)  133,134,133 

133  NXP*NXDDP 
GO  TO  135 

134  NXP*NXDP(I) 

135  DO  136  J*l , NXP 
ARG*W(1  .D-RANGLE-ATSLP 
WW(  l  ,1. )  *SIN  ( ARG)  /COS  ( ARC) 

L=L*1 

136  CONTINUE 

137  CONTINUE 
WRITE  (6,182) 

WRITE  (6,173)  (WW(l,J),J*l, NROWS) 

138  DO  139  1*1,75 
ANN (1,1) *0- 0 

139  CONTINUE 

00  140  1*1,150 
P(l, 11*0.0 

140  CONTINUE 

C  NOW  CALCULATE  A  HATH  I X 

00  142  1*1, NON 

READ  (2)  (0INVRS(1,J), J*l, NROWS) 
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00  141  J*1 «MR0WS 

AN*(l,l)*ANM(l,I )*DINVRS(l,J)*WW(l,Jl 

141  CTWLNUE 

142  CONTINUE 
REMIND  2 

IF  (NAVI  143,144,143 

143  MRITE  16,183) 

MR! TE  (6,1/3)  l ANN(1 , I ) , 1*1, NON) 

C  NOM  CALCULATE  P  MATRIX 

144  00  146  I«1,NP0INT 
DO  145  J*l,NON 

P(l,I)*P(l,I)4CEECI,J)*ANN<l, J) 

145  CONTINUE 

146  CONTINUE 

C  NON  STORE  P  IN  A  THO  DIMENSIONAL  ARRAY 
00  147  L*i»NPOINT 
I  «IL-1)/NP$IM 
J*L-( 1-1 ) 4NPS! 

CP(I,J)-P(l,L) 

147  CONTINUE 

CALL  AERO  (NEED) 

C  NOM  PRINT  CL,  CM  ANO  PRESSURE  DISTRIBUTION 
WRITE  (6,184)  ALFA(K) ,BET A(KK) 

MRITE  (6,185)  CL, CM, COL 
L*1 

148  WRITE  (6,186) 

IF  (NETA-UHI  149,149,150 

149  NC0L1«1*(L-1)*11 
NC0L2-NETA 

GO  TO  151 

150  NC0L1»1  +  (L-1)M1 
NC0L2»L*ll 

151  MRITE  (6,187)  (ETAII) , I«NC0L1 .NC0L2 ) 

MRITE  (6,188) 

DO  152  J*i»NPSI 

MRITE  (6,194)  PSI ( J) , <CP( I, J > , I»NC0L1,NC0L2> 

152  CONTINUE 
MRITE  (6,189) 

MRITE  (6,193)  ( BEN ( I ) » I *NCOL 1 » NCOL 2 ) 

MRITE  (6,190) 

MRITE  (6,193)  (CLLOC( I ) , I»NC0Li,NC0L2) 

WRITE  (6,192) 

MRITE  (6,193)  (CMLOC( I ) , I*NC0ll,NC0L2 ) 

MRITE  (6,160) 

MRITE  (6,193)  (CDLGC( I ) , I -NCOL l, NCOL 2) 

IF  (NAY)  206,207,206 

206  WRITE  (6,161) 

WRITE  (6,193)  ( ALLOCt I ) ,I*NC0ll»NCQL2) 

DO  153  JC*1,N 

MRITE  (6,191)  JC,(CK(JC,!)« I* NCOL 1, NCOL 2 ) 

153  'ONTTNUE 

207  CONTINUE 

Ir  (NETA-U*L)  155,155,154 

154  L  =  LU 

GO  TO  148 

C  NOM  CONSIDER  NEXT  ALFA 

155  CONTINUE 

156  CONTINUE 

157  CONTINUE 
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60  TO  159 

158  WRITE  1 6*1951 
159  RETURN 

C 

160  FORMAT  (1H0.20X, iOHCD*C/CAVE  ) 

161  FORMAT  f l HO ,20X .23HALPHA  INDUCED  (DECREES) ) 

162  FORMAT  (1H0/24H  FUSELAGE  EDGE  AT  ETA  *  F5.4) 

163  FORMAT  CIH0/8H  NO  BODY) 

165  FORMAT  (1015) 

165  FORMAT  (4F10.0) 

166  FORMAT  (12A6) 

167  FORMAT  (10F7.0) 

168  FORMAT  (1H154X,UHCHAIN  ( 7,8 1/5QHQCALCULAT ION  OF  PRESSURE  LOADING 
1DI STRIBUTION  FOR  ,12A6) 

169  FORMAT  (2012) 

170  FORMAT ( 5E14.7) 

171  FORMAT  (1H110X.26H  ERROR-FLAG  LESS  THAN  0.02) 

172  FORMAT  ( IH120X.43HINVERSE  OF  DOWNWASH  CONTROL  POINT  MATRIX,  D) 

173  FORMAT  ( 1H06E20.8/ ( 1H  6E20.8)) 

174  FORMAT  ( 1H120X .32HPRESSURE  CONTROL  POINT  MATRIX,  C) 

175  FORMAT  (1H010X,20HGE0HETRIC  PARAMETERS/ 1H022HAVER AGE  CHORD,  CAVE  - 
1  F10.6/1H031HMEAN  AERODYNAMIC  CHORD,  CBAR  *  F10.6/1H029HL0CATIDN  0 
2F  1/4  CBAR,  XBAR  *  FI 0.6/ 1H034HS PANWISE  LOCATION  OF  CBAR,  YBAR  * 
3F10.6) 
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FORMAT 

177 

FORMAT 

178 

FORMAT 

179 

FORMAT 

180 

FORMAT 

181 

FORMAT 

182 

FORMAT 

1) 

183 

FORMAT 

1L0ADING 

184 

FORMAT 

1  DEGRE 

185 

FORMAT 
IT,  CM  « 

186 

FORMAT 

187 

FORNAT 

188 

FORMAT 

189 

FORMAT 

190 

FORMAT 

191 

FORMAT 

192 

FORMAT 

193 

FORMAT 

194 

FORMAT 

195 

FORMAT 

END 

( IH1 10X ,2 7HC0EFF IC IENT S  OF  CL  EQUATION) 

( 1H0/1H010X,27HC0EFFIC IENTS  OF  CM  EQUATION) 

( 1H131X ,20HCAMBER  SHAPE  NUMBER  ,12) 

( IM025X,46HSPECIFIED  DOWNWASH  OR  SLOPE  (DZ/DX)  MATRIX,  W) 

( IH0/40H0SPEC IFI ED  SLOPE  DISTRIBUTION  IN  RADIANS) 
(1H110X,21HW  MATRIX  WITH  BETA  «  F9.4,12H  AND  ALFA  *  F9.4) 

( IHl 10X .48HT0TAL  DOWNWASH  MATRIX  -  INCLUDES  THE  BODY  EFFECT 

(1H0/1H010X,58HA  MATRIX,  I.E.  COEFFICIENTS  OF  THE  PRESSURE 
SERIES) 

( IHl 10X , 18HRESULTS  FOR  ALFA-  F9.4.15H,  AND  EPSILON*  F9.4,9H 
ESI 

( IH023HLI FT  COEFFICIENT,  CL  *  F10.5/IH025HMOMENT  COEFFICIEN 
F 10. 5 /1H032H INDUCED  DRAG  COEFFICIENT,  CDI  -  F10.5) 

( 1H020X, 3 3H PRESSURE  LOADING  DISTRIBUTION,  PR) 

( 1H06HSPAN  -.11F10.4) 

(9HOFRACTION/9H  OF  CHORD) 

( 1H020X ,20HL0CAL  SEMICHORD,  C/2) 

( iH020X ,9HCL  C/CAVE) 

(2H0KU.1H  ,1P7E15.7/(4H  IP7E15.7)) 

(IH020X,17HCM  C**2/CAVE  CBAR) 

( 1H06X.11 FI 0.4) 

(1H  F6.4.11F10.4) 

( IHl 13HERR0R  IN  DATA) 


SUBROUTINE  AERO  (NEED) 

C 

DIMENSION  W( 1,150) , ANM( 1 ,75) , ETA ( 50), CNP( 75),CLNP ( 75) ,GEE( 75 ) , 
1BEM50)  ,ARM(50 ) ,  CLLOC  ( 20)  ,CMLOC « 20 ) *  ALLOC ( 20 J, COLOCt  20)  •  EEDEL( 10 ) « 
2EP$LN(10),CK(6,10),CA(12),CKAU2> 

C 

COMMON  W.ANM, ETA, CNP.CLNP, GEE, BEN, ARM, CLLOC, CMLOC, ALLOC, CDLOC, 
IEED£L,EPSLN,CK,CA,CKA,CL,CM,COL,N,M,NU,NON,NFLAP,PI,PLBA,NETA,BO, 
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ooo  m  o  o  o  m  ^  tr\  <0  r-  so  & 


2BA,8BAR,PIRC,NPSI 
NON  CALCULATE  CL  ANO  CM 
CL*0*0 

00  1  1*1, NON 
CL*CL+CLNP( I ) *ANM< l,  1 1 
CONTINUE 
CMsO.O 

00  2  1*1, NON 
CM*CM*CNP(I)*ANM(l,I) 

CONTINUE 
CM*-CN 

CALCULATE  INDUCED  ORAG 

SUM*0*0 
DO  16  IS*1,M 
IM*2*(IS-l) 

DO  15  L*l, I S 
IK»2*CL-1) 

SQM*FSQMUM,IK) 

DO  14  I R*1 , M 
IP*2*C IR-l) 

MRP* 1 1 N- 1 K* I P»2 ) /2 
AMP*0.0 
NCA*NFLAP+2 
IF  (NEED)  5,3,5 
CA( 11*0*0 
CKA(1)*0.0 
IF  (NU)  54,8,4 
CAt2)*0.5*ANM(l,IS) 
CKA(2)*0.5*ANM(1,IR) 

GO  TO  8 

CA( 1)*ANM(1 , I S 1 
CKA ( l )*ANM( 1 , I R) 

IF  (NU-1 )  6,6,7 
CA(2)*0.0 
CKA(2)*0*0 
GO  10  P 
MIR*M*IR 
MI $*M-Fl  $ 

CA(2)*0.5*ANM(1,MIS) 

CKA (2) *0»5*ANM( 1 ,MIR) 

IF  (NFLAP)  54,11,9 
DO  10  !FL*1, NFLAP 
MFL*( NU-i+I FL  5  *M 
MFR=MFL-FI« 

MF  S*MFL*1 S 

CA( IFL+2) *EPSLN( IFL)*ANM( 1,MFS)/PI 
CM(IFL*2)«EPSLN(IFL)*ANM(l,MFR)/P! 

10  CONTINUE 

11  DO  U  IFL=1 ,NCA 
CIFl*CA( IFLJ 

QZ  12  IML*1 ,NCA 
AMP*AMP*CIFL*CKA ( I  ML ) 

12  CONTINUE 

13  CONTINUE 

SUM*SUM» AMP*GEE ( MRP) *SQM 
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14  CONTINUE 

15  CONTINUE 

16  CONTINUE 
CDL»PLBA*SUM 

C 

C  NON  CALCULATE  LOCAL  LIFT  AND  MOMENT  COEFFICIENTS 

C 

C0«4.0*IFI**2» 

C00«PI**2 
DO  43  I*1,NETA 
ROOT*SQRT ( 1 »0-ET  A1 I ) **2 ) 

SERESI-0.0 

VERE5-0.0 

SERS*0.0 

DO  42  J*l ,M 

SERES*0.0 

LP«2*C J-ll 

IF  (LP)  54,17,19 

17  IF  (ETAI 1 1 )  54,18,19 

18  ETTA»1«0 
60  TO  20 

19  ETTA«ETA(I ) **LP 

20  IF  (NUI  54,27,21 

21  IF  (NEEO)  24,22,24 

22  MJ»M+J 
SERES«SERES+0.5*ANM( 1 , J) 

SERS=SERS+(BEN( I }*BO*ARM( I ) )*ANM( 1, J >*ETTA 
IF  INU-U  27,27,23 

23  SERS*SERS-0.125*BENm*ANM(l,MJI4ETTA 
GO  TO  27 

24  MJ«M*J 
MMJ*M+M+ J 

SERES*SERES*ANM(l, J) 

SERS*S£RS* ( BENI 1 »*2.0*B0*ARM( I » )* ANM( 1, J )*ETTA 
IF  INU-l)  27,27,25 

25  SERES»SERES*0»5*ANMI 1»NJ) 

SER5*SERS+ ( BENI I 3+ BO* ARM I 1 1 J*ANM( 1,MJ I*ETTA 
IF  INU-2)  27,27,26 

26  SERS»SERS~0.l25*BENm*ANM(l,MMJ)*ETTA 

27  IF  (NFLAP)  28,30,28 

28  ETPI»ETTA/PI 

DO  29  IFL»1, NFLAP 
MFL=MNU«JFL-l)*N 
MI  P=HFL+ J 

SER$»SERS*2.0*ETPI *1 OENI I  )*EEDEL ( IFU*BO*ARM<  I  )*EPSLNUFL ) ) *ANM(  1 , 
IMIP) 

S£RES=SERES+£PSLNI  If;L)*ANM(  1,  MIPI/PI 

29  CONTINUE 

30  AYE1«0.J 

DO  41  NG«l,J 
N0M*2*(NG-1» 

IF  (ETAUU  32,31,32 

31  ETAG»1.0 
CO  TO  33 

32  ETAG*ETAm**(LP-NGM) 

33  IF  (NG™2)  34,35,36 

34  AYE  =LP* 1 
GO  TO  40 

35  AYE=1-LP 
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AYE«0.5*AYE 
CO  TO  AO 

36  NUH«l 
LOW-2 

IF  (NGM-4)  /  39,37 

37  IG2*NGM-2 

OH  30  IG*A,IG2,2 
NUN»NUM*IIG-i> 

36  LOW»LOW»'lG 

39  UNM*NUH* ( NGN-LP-1 ) 

ELW»LOW*NGM 

AYE=UNM/ELW 

AO  AYE  1*AYE1+AYE*£T  AG 

A  L  CONTINUE 

VERES»VERES*SERES*AYE1 
SERESI*SERES1+SERES*ETTA 
A2  CONTINUE 

CLLOCm»CO*ROOTOSERESl/BA 

ALLOC ( I )»COO*VERES 

COLOC ( I ) *CLLOC ( I ) ♦ ALLOC ( I ) 

ALLOC  (!) -180.  0*AH.0CU1 /PI 
CMLOC  C I  )  *~CCO»ROOT«‘SERS/  (  BA*B8AR ) 

A3  CONTINUE 

C 

C  CALCULATE  CK(N,ETA) 

C 

00  53  I  T*1 , NET  A 
ETTA*ETA( IT  I 

PIRC“8.0*PI ♦SQRT ( l .O-ETTAAETT  A)/BEN( IT ) 
00  52  JC-l.N 
IF  (JC-l)  A5.AA.A5 
AA  EL* l. 0 

GO  TO  A8 

A  5  IF  UC-NU)  A6,A6,47 

Afc  EL«A.0/<2.0**(24JC-2)) 

GO  TO  A8 
A 7  EL-l.O/PI 

A8  SIGMA«0.0 

NEL»( JC-1)*M 
00  51  JS*1,H 
HEL»NEL*JS 
IF  (JS-1I  50,49,50 
A9  SIGMA«SIGMA+ANH(1,MEL) 

GO  TO  51 

50  SIGNALS I GMAaANMI 1 1  MEL  I *ETT  A** ( 2*  ( JS**l )  ) 

51  CONTINUE 
CK(JC,!T)=SIGMA*EL*PIRC 

52  CONTINUE 

53  CONTINUE 
GO  TO  55 

5A  WRITE  (6,56) 

55  RETURN 
C 

56  FORMAT  ( 1HI 13HERR0R  IN  DATA) 

END 


SUBROUTINE  PI NVRSC NI N, NOUT , NAY, N00E3, N0DE6, NROW, NCOL > 
C 
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C  CALCULATES  THE  LEAST  SQUARE  INVERSE  OF  O.  A  IS  EQUIVALENT  OF  D 

C  INVERTED  MATRIX  IS  PLACED  ON  TAPE  2  FOR  CHAIN7 

C 

DIMENSION  A(120«48),B(48,48)«C(l, 120),DUM( 120) 

C 

NOM'l 

JMAX-NROW 

IF  ( JMAX-120)  1,1,33 

1  KMAX-NCOL 

IF  (KMAX-48)  2,2,33 

2  REMIND  NIN 

DO  3  J*l » JMAX 
DO  3  K*1 ,KMAX 
At J,K)-0.0 

3  CONTINUE 

IF  ( NAY)  4,5,4 

4  WRITE  (6,34) 

5  DO  II  I  *t , JMAX 
IF  (N0DE3)  7,6,7 

6  READ  (NIN)  ( DUM( K) ,K*1 , KMAX ) 

GO  TO  8 

7  RE  Ai '  (5,35)  (DUM(K) .K-l.KMAX I 

8  DO  V  K*1 , KMAX 

9  A( I ,KI»DUM(K) 

IF  (NAY)  10,11,10 

10  WRITE  (6,36)  ( A( I ,K) ,K«i , KMAX ) 

11  CONTINUE 

C  OBTAIN  PRODUCT  OF  A  AND  A  TRANSPOSE 

IF  (NAY)  12,13,12 

12  WRITE  (6,37) 

13  DO  16  J*1 ,KMAX 
DO  14  K*l , KMAX 
fl( J,K)-0.0 

DO  14  1*1, JMAX 
B(J,K)*B(J,K)+A(I,J)4A(I,K) 

!4  CONTINUE 

IF  (NAY)  15.16,15 

15  WRITE  (6,361  ( B ( J, K| ,K*1 , KMAX ) 

16  CONTINUE 

DO  17  J*1 ,120 
C(l,JI*0.0 

17  CONTINUE 
DETER*0.0 

CALL  MATINV  ( 8, KMAX , C,0 , DETER ) 

IF  (NAY)  18,20,18 

18  WRITE  (6,38) 

DO  19  N*i ,KMAX 

WRITE  (6,36)  (8tfN,K) ,K*1,KMAX) 

19  CONTINUE 

C  CALC.  (INERSE  OF  A  TUANSP0SE4A)*A  TRANSPOSE 
WRITE  !6,39) 

20  REWIND  NOUT 
REWIND  NIN 

DO  27  1*1, KMAX 

00  27  J*1 , JMAX 

C(l,J/*0.0 

DO  21  X*i ,KMAX 

C(1,J)*C(1,J)4B(I,K)*A(J,KI 

21  CONTINUE 


m 


22 


CONTINUE 
DO  23  J«1,JMAX 

23  OUM( J) *C  ( 1  *  J) 

IF  (NAY)  24,25,24 

24  WRITE  (6,36)  ( C ( l , J) , J-i , JHAX ) 

25  WRITE  (NOUT)  (DUM( J I , J«1 , JHAX )  , 

WRITE  (NIN)  (C(1,J), J*1,JMAX) 

IF  (N0DE6)  26,27,26  1 

26  WRITE  (7,35)  ( DUM( J) , J*l , JHAX ) 

27  CONTINUE  1 

C  LEAST  SQUARES  INVERSE  COMPLETED 

C  EVALUATE  DETERMINANT  OF  (A  INVERSE)*(A) 

REWIND  NIN 
DO  29  J-I.KMAX 

READ  (NIN)  (C(L,JN) , JN»1, JHAX)  i 

DO  28  K«I,KHAX 

B(J,K)«0.0  i 

DO  28  I*1,JMAX 

B( J,K)«B( J,K)*C(l,I)*A(I,K) 

28  CONTINUE 

29  CONTINUE 

IF  (NAY)  30,32,30  i 

30  WRITE  (6,40) 

DO  31  I*1,KMAX 

WRITE  (6,36)  (B(I,J),Jfl,KNAX) 

31  CONTINUE 

32  CALL  HATINV  ( B.KHAX , C ,0, DETER ) 

WRITE  (6,41)  OETER  , 

RETURN  * 

33  WRITE  (6,42) 

STOP  ,  . 

C 

34  FORMAT  (25H0MATRIX  TO  BE  INVERTED,  A) 

35  FORMAT  (1P5E14.7) 

36  FORMAT (1H06E20.8/(1H  6E20.8)) 

37  FORMAT  (1H113HA  TRANSPOSE**) 

38  FORMAT  (1H125H  INVERSE  OF  A  TRANSPO$E*A) 

39  FORMAT  (1H120HINVERTE0  MATRIX  AINM) 

40  FORMAT  ( 1H120X,40HUNIT  MATRIX  «  (INVERTED  MATR I X ) * ( MATA  I  X ) ) 
41  FORMAT  ( 1H0 .29HDETERM INANT  OF  UNIT  MATRIX  ■  ,E15.8) 

42  FORMAT  ( 1H1 16HMATR I X  TOO  LARGE) 

END  , 


SUBROUTINE  MATROW  ( MSPAN , NCHORD, NONSNG, H, I , NAY, NEED, N FLAP* PH  IK, 
IPHIL,LAP,IFL,IX,FR0WR) 

C  :  1  1  . 

C  THIS  ROUTINE  PERFORMS  THE  QUADRATURE  AFTER  THE  STATIONS 

C  AND  WEIGHTS  HAVE  BEEN  ESTABLISHED. 

C  1  '  . 

DIMENSION  GAUSS ( 50 ) , FROWR ( 36, 50 ) , THET U( 20, 4 ) , THET AA( 30, 1 6) , FORR ( 30 
1,16) ,N0MB(20,3 ) , NQ ( 3 ) ,THE T A (4 ) , ET A ( 20 !  • YDWASH( 150 ) ,FLPOS ( 10 )  ,NSEC( 
220) , ANSWR (50) »SGWT ( 10 ) , FNNNN ( 20 ) »  FN  f  20  )  , 

C  ; 

COMMON  GAUSS,THETB,THETAA,FORR, NOMB, NQ, THET  A, ETA, YOWASH, FLPOS,NSEC . 
C  ’ 

IF  (LAP)  2,1,2 
l  NEL2»NCH0RD-NFLAP 

NEWASH*! 


i 


17?, 


GO  TO  3 

2  NEL2*1 

NFWA$H«HSPAN*(NCHORO-NFLAP+IFL-n*l 

3  MNUMB-GAUSSU) 

IF  (NONSNG)  5,4,5 

4  DELA«l. O/IIOO. 0*H) 

SGWT( 1 ) *13«  0*DELA 
SGWT(2)~72.0*0ELA 
SGWT( 3) *495»0*DELA 
SGWT(4)*-1360.0*0ELA 
SGWT<  5 ) xSGWT ( 3 ) 

SGWT(6 ) *SGWT( 2 ) 

SGhT(7)»SGurm 

HNUHB*7 

5  PKL=( PH  I K— PHIL )/2»0 

C  00  CHOROWI SE  INTEGRATION  AT  SPAUISE  STATIONS 

DO  30  NEL*1,NEL2 
,  NSTAT*1 

IF  (NAY)  6,7,6 

6  WRITE  (6,31)  NEL 

7  CONTINUE 

DO  19  L*l »MNUM8 
NQI-NSEC(L) 

FNNNNIU*0.0 
IF  (NQI I  8,11,8 

8  DO  10  I CQ*1 »NQI 
FN( ICQ) *0.0 
MM»NOMB(L,ICQ) 

CALL  PRESSR  I MH, NEL, NSTAT , ANSWR, FLPOS , NEED, LAP,  I FL, THETAA, L ) 
DO  9  LNN«l,HM 

FN( ICQ)*FORR(NSTAT,L)*ANSWR(LNM)+FN( ICQ) 

NSTAT*NSTAT+1 

9  CONTINUE 

FN( ICQ)*(THETB(L,ICQ+1)-THETB(L,ICQ) )*FN( ICQ)/ 2.0 
FNNNN (  L )  *FNNNN  CD  +  FNIICQ) 

10  ,  CONTINUE 

NSTAT=l 

11  SPH 1  =  1 «0-ET  A ( L ) *ET  A ( L ) 

I F (NAY )  12,13,12 

12  WRITE  (6,32)  ETA ( L ) , FNNNN < L ) 

13  CONTINUE 

IF  (NONSNG)  15,14,15 

14  FNNNNt  L ) *FNNNN ( L ) *SGWT (L)*SQRT(SPHI ) 

GO  TO  16 

15  Y00=( YDWASH ( I ) -ETA ( L ) ) 

Y00=Y00*YC0 

NGAUS-L+MNUHB+1 

FNNNN ( L ) *FNNNN ( L ) *GAUSS ( NGAUS ) *SPH I/YOO 

16  IF  (NAY)  17,18,17 

17  WRITE  (6,33)  FNNNN(L) 

18  CONTINUE 

19  CONTINUE 

DO  29  HEL  =  l  ,MSPAN 
WELL=«2*  ( WEL--1 ) 

AUX-0.0 

00  24  K»1 ,HNUHB 
IF  (NELL)  22,20,22 

20  IF  (ETA(K) )  22,21,22 

21  POWER»i.O 
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GO  TO  23 

22  POWER«ETA(K)*«MELL 

23  AUX«AUX*FNNNN(K)*POWER 

24  CONTINUE 

IF  (NONSNG)  25.26,2$ 

25  AUX»AUX*PKL 

26  FROWR(NEWASH,IX)-FROWR(NEWASH,IX)*AUX 
IF  (NAY)  27.28,27 

27  MRITE  (6,34)  HELL, AUX 

28  CONTINUE 

NE W ASH *NE WASH* 1 

29  CONTINUE 

30  CONTINUE 
RETURN 

C 

31  FORHAT  (42HLCH0R0WISE  INTEGRALS  FOR  PRESSURE  NODE.  N* 131 

32  FORHAT  (7H0ETA  «  E15.8/IH  .21X.7HIC  l  «  E15.8) 

33  FORHAT  ( 1H  .21X.7H1C  2  «  E15.8) 

34  FORHAT  (40H0SPANWI SE  INTEGRAL  FOR  PRESSURE  MODE,  M*I3.3H  *  E15.8) 

END 


C 

C 

C 


C 

C 

C 


2 

C 

C 

C 


3 


6 

7 

C 

C 

c 

8 
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SUBROUTINE  HATINV  (A.N.B.K.DETERM) 

MATRIX  INVERSION  WITH  ACCOMPANYING  SOLUTION  OF  LINEAR  EQUATIONS 

DIMENSION  I  PIVOT (48 ) , INDEX (48 ,2) 

DIMENSION  A(48,48) ,8(48,1), PIVOT (48) 

INITIALIZATION 

DETERM-1.0 
DO  2  J*l »N 
IPIVOTI J)*0 
DO  21  I *1 ,N 

SEARCH  FOR  PIVOT  ELEMENT 
T*0.0 

00  7  J*l , N 

IF  (IPIVOTI J)-l)  3,7,3 
DO  6  K«1,N 

IF  (IPIVOT(K)-i)  4,6,25 
IF  (ABS(T)~ABS(A(J,K)))  5,6,6 
I  ROW* J 
ICOLUM»K 
T»A(J,K) 

CONTINUE 
CONTINUE 

IPIV0T1 ICOLUM) ■! PIVOT ( ICOLUM) 

INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  ON 

IF  (IROW-ICOLUM)  8,12,8 
DETERM—DETERM 
DO  9  L-l»N 
T«A ( IROW.L) 

A( IROW,L)*A( ICOLUM, L) 

A( ICOLUM, L) *T 
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IF  (Ml  12,12,10 
DO  11  L«l,M 
T*8(IR0W,L) 

6( I  ROW, L I *B(ICOLUM,L) 

11  8( ICOLUM, L) *T 

12  I NOEX( I , l ) *  I  ROW 
INOEXII ,2)-IC0LUM 

PIVOT ( I ) *A( ICOLUM, ICOLUM) 
OETERM*D£TERM*PIVOT(I) 

C 

C  DIVIDE  PIVOT  ROW  BY  PIVOT  ELEMENT 

C 

A( ICOLUM, ICOLUM I >1*0 
DO  IB  L«1,N 

13  A ( ICOLUM, LI *A( ICOLUM, L)/PIVOT( I) 

IF  (Ml  16,16,14 

14  DO  15  L*1 ,M 

15  B( ICOLUMfL) *0( ICOLUM,L)/PIVOT (I  I 

C 

C  REDUCE  NON-PIVOT  ROWS 

C 

16  DO  21  Ll*l »N 

IF  (Ll-ICOLUM)  17,21,17 

17  T=A(Ll, ICOLUM) 

A ( LI , ICOLUM) *0.0 
00  18  L*1.N 

18  A(L1«L)*A(L1,L)— A( ICOLUM, L I *T 
IF  (M)  21,21,19 

19  DO  20  L“i ,M 

20  B(L1,L)»B(L1,LI-B(IC0LUM,L)*T 

21  CONTINUE 
C 

C  INTERCHANGE  COLUMNS 

C 

DO  24  1*1, N 
L=N*l-I 

IF  ( I NDEX (L , 1 ) -I NOEX ( L ,2 ) )  22,24,22 

22  I  ROW* INDEX! L , 1 ) 

IC0LUM*IN0EX(L,2 I 
00  23  K*1,N 

T*A ( K» I  ROW) 

A ( K  , IROW) *A ( K , ICOLUM) 

A(K, ICOLUM) *T 

23  CONTINUE 

24  CONTINUE 

25  RETURN 
END 


SUBROUTINE  PRESSR  ( MM,NEL, NST AT, ANSWR, FLPOS, NEED, LAP, IFL , THE TT,LL ) 
C 

DIMENSION  THETT (30,1), ANSWR (i),FLPOS(ll 
C 

LAC-NSTAT 
IF  (LAP)  9,1,9 

1  IF  (NEED)  2,3,2 

2  KEL-NEL-l 
CO  TO  4 

3  KEL-NEL 
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IP  <0  S  S  9>  —t  UOO 


IF  (KEL)  5,5,7 

DO  6  LNM»l , MM 

AUY«THETT (LAC«LL)/2.0 

ANSWR( LNM) *COS ( AUY)/$IN<  AUY  J 

LAC-LAC+1 

CONTINUE 

RETURN 

FNEL-KEL 

DO  8  LNM«1,MM 

AUY*THETT (LAC,LL) 

ANSWR ( LNM) *4. 0*S INI AUY*FNEL )/ (2.0** ( 2*KEL ) ) 

LAC»LAC+l 

CONTINUE 

RETURN 

AUFL*FLPOS(IFL) 

DO  10  LNM*1 ,MM 
AUY^THETT (LAC, LL) 

UNUM*SI N(0. 5*1 AUFL*AUY ) ) 

DENCM=S I N (0.5* ( AUFL-AUY ) ) 

ANSWRI LNM) « ( ALOG ( ABS (UNUM/DENOM ) ) 1/3.14159265 

LAC*LAC+1 

CONTINUE 

RFTURN 

END 


SUBROUTINE  MPRINT  ( TEXTM , NW, MT APE, MAT  2, MAT3 ) 

THIS  ROUTINE  IS  USED  TO  PRINT  A  MATRIX 

DIMENSION  QOOOFL (150) »A(5)»TEXTM(9) 

C 

NR0WS-MAT2 
NC0LS-MAT3 
REWIND  MTAPE 

C  NOW  BEGIN  PRINT  LOOP 

LTNES*0 

DO  6  J*1 , NROWS 

READ  (MTAPE)  ( QOOOFL ( I ), I»1 , NCOLS ) 

K=l 

1  A ( 1 ) *0. 0 
A ( 2 ) *0. 0 
A( 3 )*0. 0 
A(4)-0.0 
A ( 5 )*0. 0 

A ( l ) *QOOOFL ( K ) 

A (2 ) *QOOOFL ( K+i ) 

A(3)«Q000FL(K42) 

A ( 4 ) “QOOOFL ( K*3 ) 

A ( 5 ) »QQOOFL ( K+4 ) 

N1*K 

N2-K+1 

N3-M-2 

N4*K*3 

N5«K+4 

K»K*5 

IF  (LINES)  2,3,2 

2  IF  (44-LINES)  3,4,4 

C  START  NEW  PAGE 
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O  O  OO 


3 


WRITE  (6,9)  (TEXTM1I ),I-1,NW) 

WRITE  (6,7)  NROWS, NCOLS 
WRITE  (6*81 
LINES-5 

4  WRITE  (6,111  J,N1,A(1),N2,A(2),N3,A(3), N4, A(4),N5,A(5) 

LINES-LlNES+l 

IF  (NCOLS-KJ  5,1,1 

5  WRITE  (6,10) 

LI NES*LIN£S+l 

6  CONTINUE 
RETURN 

FORMAT  ( 1H030X  ,I4,9H  ROWS  BY  14, 8H  COLUMNS  I 

FORMAT  (IH02X8HR0W  COL, 18X,3HCOL , 19X, 3HCOL, 19X, 3HC0L, 19X, 3HCOL ) 
FORMAT  ( 1H1 29X ,9A6 ) 

0  FORMAT  (1H  ) 

1  FORMAT  (1H  2X, 13,15, IX, E15.8,2X, 1 3, 2X, E15.9, 2X, 13, 2X, E15 . 8, 2X, I  3, 
12X,E15.8,?X,I3,2X,E15.8) 

END 


SUBROUTINE  FNUD  (FEN, GAUSS, WTGS ) 

DIMENSION  NLOC (14)«TA8LE(70)»TWGTS(70)t  GAUSS! 1 ) , WTGSl II 
DATA  NLOC /2, 4, 7. 10, 14, 18, 23, 28, 34, 40, 47, 54, 62, 70/ 

DATA  TWGTS/. 888888888,. 555555555, .652145154, .347854845,-568888888, 

1.47862 8670..  236926885. .467913934. . 360761573, -17 1324492* .417959183, 

2. 381830050..  279705391.. 129484966. .362683783.. 3 137,664S, . 22238 1034, 

3. 101228536..  330239355.. 312347077.. 260610696. . 1 80648160. .812743884, 
4- 1,. 295524224,. 2692667 19,. 219086362,. 149451349, .66671 3443E-1, 

5. 272925086.,  262804544,.  233193764,  .186290210,  .125580369,  .  55668567J.E 
6—1 ,.249147045, .233492536, . 203 167426, • 160078328, . 106939326, 

7. <» 7 1753 36^6-1  ,.232551553,  .226283180,  .207816047,  .  178145980, 

8. 138873510..  92 12 14998,-1 , .404840048E-1, . 21 5263853,. 205198463, 

9. 185538397..  157203 167.. 12 1518570.. 801580872,- 1 , . 351194603E- 1 , 

A.  202578241,. 198431485,. 186 16 1000, • 166269205, .139570677, . 107159220, 

B. 703660475E-l,.307532420E-i,. 189450610, .182603415,. 169156519, 

C.  149595988,. 124628971,. 951585 117E- l, .622535239E-1 , .271524594E-1/ 
DATA  TABLE/0.0,.774596669,.339981043, .86 l 1 3631 l, 0 .0, . 5384693 10, 

1.906179845..  238619 186.. 66 1209386. .932469514.0.0. .405845151, 

2. 741531 185..  949107912.. 183434642. .525532409.. 796666477. .960289856, 
30. 0,-324253423,. 61 337 1432,. 836031 107,. 968 160239,. 1488743 39, 

4. 433395394..  679409568.. 865063366.. 973906528. 0.0. .269543156, 

5. 51 9096129..  7301 52005.. 887062599.. 978228658.. 1253 33408. .367831498, 

6. 58731 7954..  7699026 74.. 9041 17256. .981560634.0.0. . 230458316, 

7. 448492 751..  642349339.. 80 1578090. .917598399. .984183054. . 108054948, 

8. 31 91 12368..  515248636.. 687292904. .827201315. .928434883. . 986283808, 
90. 0,.20i 194094,. 394 151347,. 5 70972 172, .724417731, . 848206583, 

A.  937273392 , .987992 518 » -95012509BF- 1 , • 281603550, .458016777, 

B.  61 7876244, • 755404 A08, .865631 20 2, .944575023, .989400935/ 


N*FEN-»  1.0 
I NOEX*NLQC ( N-3 ) 

N2-N/2 

J*N-1 

DO  1  I  *  1 , N2 

GAUSS!  I) —TABLE  (INDEX) 
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(ft  <0 


GAUSS ( J) ■TABLE ( I NOEX I 
WTGSU  I  -TWGTSf INDEX) 
WTGS(J)«TWGTS< INDEX) 
J«J-I 

l  I NDEX«I NOEX-l 

RETURN 
END 


FUNCTION  FSQM  <MN,IR) 

C 

GMM-MH 

I  =  (  IR*2)/2 

IF  (1-1)  1,1.2 

1  FSQM*GMM+1.0 
GO  TO  8 

2  IF  (1-2)  3,3,4 

3  FSQM«0.5*(GMN*1.0)-GMM 
GO  TO  8 

4  11*3 
EH1»0.5*(GMM+1.0 J 
EM2*GMM 
ENUNl*3.0 
DEH1-4.0 
ENUN1*1.0 
DENl-2.0 
F  SI *ENUM1/DEM1 
F  S2=ENUN1 /DENI 
IF  (I-II)  7,7,6 
ENUM1-ENUMI*2.0 
DEM1-DEH1+2.0 
ENUNl»ENUNl+2,0 
DEN1-DEN1+2.0 
FSi=FSi*ENUHl/DEMl 
FS2=FS2*ENUNI/0EN1 

1 1*114-1 

GO  TO  5 

7  FSQM«EM1*FSI-EM2*FS2 

8  CONTINUE 
RETURN 
END 


FUNCTION  FKERNL  (XO, YO, S , FMACH ) 

BETASQ»l . 0-FMACH*FMACH 
CCHP*X0*X0+8ET  ASQ*S*S*YO*YO 
SQCCMP-SQRT(COMP) 

FKERNL*! • O+XO/SQCOHP 
IF  ( SQCOMP)  1,1,2 

1  WRITE  (6,601) 

STOP 

2  CONTINUE 
RETURN 

601  FORMAT  ( 1H0 ,///10X ,32H***SQC0MP»0,  EXIT  FROM  FXERNL***) 
END 


FUNCTION  FPMl  (ETAO.ETAl.MM) 
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«**  •€  V\ 


C 

PHl«ACOSlETAO> 

PHIl-ACOS(ETAl) 

FPMI»(CS1N(PHI)I **3»0-f SINIPHI l )J**3.0)/3.0 
IF  (MN-2)  3,1,1 

1  IM-2 

2  GM-IH 

FPMI«(  (£TA0P*GH)*(SINIPHm**3.O-(ETAl**GH)*(SIN(PHIl))**3.0)/(GH* 
13.0)*(GM*FPMI)/<GM*3.0) 

IM«IM*2 

IF  (IM-MM)  2,2,3 

3  RETURN 
END 


FUNCTION  FRHI  ( ETAO , ET AL , MM) 

C 

PHI*ACOS(ETAOI 
PHI l*ACOS(ETAl) 

IF  JMM-2I  1,2,2 

1  FRMI«0.5*( PHI -PHI  l 1-0.25* (SIN (2. 0*PHI 1-5  IN ( 2.0’PHI 1 )> 

GO  TO  6 

2  FRMI*0» 125*  C ( PH I -PH 1 1 )-0«  25* ISIN(4«0*PHI1-SIN( 4«0*PHI 1)1 ) 

IF  (MM-2)  3,3,4 
GO  TO  6 
I  M*4 
GM*IM 

FRMI«(ETA0**(GM-1.0l*ISINIPHin**3.0-ETAl**CGM-1.0)*(SINIPHIl)»** 
13. 0* (GM-1 .0  )  *FRMI  )/(GM*-2.0) 

I M«IM*2 

IF  (IM-MM)  5,5,6 
6  RETURN 
END 
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PROGRAM  NLBOOY < I NPUT ,OUT PUT , TAPES- INPUT. T APE6- OUTPUT ) 

C 

DIMENSION  ALPHA1U8I  ,PHIl(9)f  Qim,Rie9>,C0HNT(  18  »*C(  10) 

DIMENSION  CVS (4)  »CNS  14 1  .CMS ( A ) ,C£S ( 4) , RLS 1 10) , CYSVI  31  ,CN SVI  3 ) 

C 

COMMON  DX1 ,DX, I S TART ,NEX I T ,LREF, SREF, CG, CYS,CNS, C^S.CES, RL S.CYSV, 
ICNSVtPHl 
C 

REAL  LREF 
C 

CALL  OATA 
READ  (5,51  COMNT 
WRITE  (6,25)  COMNT 
5  FORMAT ( 18A4 ) 

READ  (5,10)  LREF ,S REF ,CG, DX1 
10  FORMAT (4F10.4) 

READ  (5,15)  NALPHA,NPHI ,NQ,NR 
15  FORMAT (512) 

READ  (5,20)  ( ALPHA 1 ( I ) , I* 1 , N ALPHA  ) 

READ  (5,20)  (PHIim,I*l,NPHl) 

READ  (5,20)  (OKI)  ,1*1, NO) 

READ  (5,20)  (R1(I),I*1,NR) 

20  FORMAT ( 9F8. 4 ) 

25  FORMAT (1H1,18A4) 

DO  50  I *1 ,NPHI 
PHI*.01T4533*PHI1(I) 

CP*COS( PHI ) 

SP*SI N( PHI ) 

CALL  COEFF 

DO  50  J*1 ,NR 

DO  50  K*l,NQ 

C l*Rl ( J ) *CP+Q1 ( K )*SP 

C2*Q1(K)*CP-R1(J)*SP 

WRITE  (6,30)  PHI1(I),Q1(K),R1(J) 

30  FORMAT (5H0PHI*,F8.3,5H  Q«,F7.4,5H  R*,F7.4/ 

18H0  ALPHA, 30X2HCN,15X2HCM,15X3HCY  ,  14X3HCEM, 14X3HCRM  ) 

DO  50  L«l,NAIPHA 
ALPHA*. 0l745i3*ALPHAi (L) 

CA*COS( ALPHA) 

SA*SIN(  ALPI-  A) 

C(1 )*Cl*CA 
C(2)«SA*CA 
C ( 3 ) *C2*C A 
C (4 ) =CA**2 

CYSPOT*-(C( 1)*CYS(1)*C12)*CYS (2 )+C ( 3)*CYS(3)+C (4)*CYS(4) )/SREF 
CESPOT*-(C(  1)  *CES(  1)+C(2)*CES(2)+C(3)*CES(3)*C(4)*CES(4)  )/ 

1  (SREF*LREF) 

CNSP0T»-(C(1)*CNS( l)+C(2>*CNS(2)+C(3)*CNS(3)+C(4)*CNS(4)  I/SREF 
CMSPOT  —  <C(  1)*CMS(  IKC(2)*CMS  ( 2 ) *C ( 3 )*CMS (  3 )*C (  4  ) +CMS(  4 )  )/ 

1  (SREFALREF) 

CYSP1*CYSP0T 

CYSP0T-CYSP1*CP-CNSP0T*SP 

CNSP0T»CYSP1*SP*CNSP0TACP 

CYSP1*CESP0T 

CESP0T-CYSP1*CP-CMSP0T»SP 
CMSPOT«CYSPi*SPACMSPOT*CP 
C  ( 1 0 )  *C  ( 4  ) 
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C(9)«2.*Cm*CA 

cm-2.*cm*ci 

C ( 7 ) *2. *C ( 3 ) *CA 
C(6)-2.*C(3)*C2 
C (5 )*C (2 ) *CA 
C(4)«C(2)*SA 
C(3)“C(3)*Cl 
C ( 2  )  *C ( 2 ) *C2 
C(l)*C(l)*SA 
CLSPOT-O. 

CLSVIS-O. 

00  35  M-1,10 

35  CLSP0T»CLSP0T+C(M)*RLS(M) 

CLSP0T»CLSP0T/(SREF*LREF) 

WRITE  (6,401  ALPHA 1 (L) , CNSPOT , CMS POT, CVSPOT*CE SPOT, CL  SPOT 
40  FORMAT ( IH  ,F7.4 , IOX9HPOTENT I AL, 5X5 ( 3X 1PE 12,4, 2X )) 

CALL  VI  SC (SA,Q1 ( K) »R1 ( J) ,CNS VIS, CMS VIS, CVS VIS,  CESVISv  CLSVI S ) 
WRITE  (6,45)  CNSVf S,CMSVIS,CYSVIS,CESVIS,CLSVIS 
45  FORMAT ( LH  , 17X9HVI SCOUS  , 5X5 (3X IPE 12.4, 2X )/lH  ) 

50  CONTINUE 
STOP 
END 


SUBROUTINE  FORCE 
C 

DIMENSION  CY(4),CM4),RL(9)  ,CYO  (4 1 ,  CNO  ( 4 )«  RLO(  91,  KPLREI  II), 
l  KPLIH(ll) 

DIMENSION  CYS (4 ) ,CNS (4 ) ,CHS (4 ) , CES ( 4 ) , RLS( 10 ),  CYSV( 3> ,CN SV( 3 ) 
DIMENSION  AI(12),B1( 12) , APR1 (12)«BPR1(12),C(2) 

C 

COMMON  OX I , OX, I  START ,NEXIT , LREF, S REF, CG,CYS» CHS, CHS, CES*RLS,CYSV« 
ICNSVtPHI 

COMMON  X,RB,P.O  R ,RB2 ,S , 0$ DX ,COCY, CDCL, N,  Al.Bl,  APRI,BPR1,C 
C 

REAL  LREF ,KPLRE»KPLIM 
C 

C l* ( X-CG) /LREF 

CY( l)*25.I3274*( Al(3)-RR)*RB*Cl 
CY( 2) *1 2. 56637*81 ( 3) *RB 
CY(3)»2.*C14CY(2) 

CN( I ) «CY (3) 

CN ( 2 ) =-12.56637* ( AI ( 3 ) +RB ) *RB 
CNI3)»2.*Cl*CN(2) 

CY(4)*12. 56637 *C(1) -2. PS* APR I (2 ) 

CN(4)«12.56637*C(2)-2.*S*BPRI(2) 

Rl'l)-CY(1)-CN(3) 

^L ( 2 ) *2 • *CY ( 3 ) 

RL(3)»CI*(CY(1 )-CN( 3 ) ) 

RL(4)«CY(2) 

RL(5)-CY(4) 

RL(6)«CL4CY(3) 

RL( 7)»C1*CY(4) 

RL(8)«-C1*CN(1) 

RL(9)«-Cl*CN(4) 

CY(I)«CY(1)+4.4C1*S 
CN( 3) *CN( 3) *4. *C l*S 
CN(2)»CN(2)+2.*S 
IF  (ISTART)  200,5,10 
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5  00  6  1*1 ,A 
CYSII 1*0. 

CNsm*o. 

CMSUMO. 

ces«i)*o. 

CYOU)-CY(I) 

6  cNom«CNm 
00  7  1*1  *9 
RLSCI I *0. 

7  RLO(I)*RL(I  ) 

! START*1 

GO  TO  200 

10  XA*X-.5*DX-CG 
00  15  1*1 ,4 

cvsm*cvsm*cvr  :-cvom 

CNSm«CNS(n*CN(I)-CNO(I) 

CHS(1)*CMS( I )-XA*ICN( I )-CNO( I > I 

is  CEsm*C£sm-xA*fCYm-CYom» 

00  20  1*1,9 

20  RLSm*RLSm  +  (RL(I)+RL0m)*DX/2. 

IF  INEXIT)  200,25,35 
25  00  27  1*1,4 

CY0(I>*CYm 
27  CNOUt*CNm 
00  30  1*1,9 
30  RLOm*RL(I) 

GO  TO  200 

35  RLS<5)*RLS(5>*12.56637*(A1(2I*<A1(3)aRB)*BI(2)*B1(3))*AB 

RLSI71 *RlSI 7I*12«56637*( Al (21*1 A1 ( 3) +RBI+BI ( 2)*B1 ( 3) )*RB*Cl 
RLS(9)*RLS(9)+12.56637*(BI (2)*(A1 (3)-RB)+Al(2)*Bl(3) )*RB*C1 
RLS( 10) *-12.56637* (Ai (2 )* ( ( Ai (3)aRB)*BPR1 I 2)-APRl (2)*Bl( 3)) 

1  *B1  C2)*(  (Aim-RB)*APKI'2)*BPR1(2)*B1(  3!  11**8 

N1*N-1 

IF  (Nil  200,200,37 
37  00  AO  1*1, Nl 

KPLRE ( 1 1*0. 

AO  KPLIIM  I  )*0.0 

00  50  H*l ,N1 
N3*Ni— N*1 
IF  (R-2)  A2 ,50,A2 
A2  RBI *1. 

00  A5  1*1, N3 
RI*P*I 
RBI *RBI *RB 
IF  (RI-2)  200,45 ,A3 
A3  0-Al«M|*Al(RI)*81(R)*Bl(MI) 

E=Al(P)*BKRi  )-Bl(R)*Al(Mi) 

KPLREI I ) -KPLRE  < I )*0*RBI 
KPLINf I )=RPLIRII )'  E*RBf 
A5  CONTINUE 
50  CONTINUE 
P-Nl* 1 

0=Bll  3)  *KPLREI  1)M  Aif3)-Rti)*KPLlN(l> 

E-BH3»*KPLI*(1)*  ;  AU3*-RB)*IC®LRE!  II 
If  ( Nl  -3  I  65,65, *>5 
55  RH|*«B 

DC  6G  !*A,N1 
«ei *»bi 
*; =»-2 


0-D4AI*(AKI)*KPLIM(I)-Bl  ( Z)*KPLRE(  I))/RBI 
60  E*E+AI  *(  Al  ( I  )*KPLRE(  I  KBl  ( l  )*KPL!M( I  )  )/RBt 
65  RLS(5)*RLS(5)+6.283185*E 

RLS(7)*RLS(7)4-6.283185*E*C1 

RLS(9)«RLS(9)46.283185*0*C1 

RLS(10)*RLS( 10 )-6. 283185*  I D*APRK  2 ) +E*BPR1 (2)1 
200  RETURN 
END 


SUBROUTINE  OATA 
C 

DIMENSION  COMAI N  (4^')  .COMFOR  ( 59  ) 

DIMENSION  XI  (40)  ,Rl3l  (40  )  ,  DRDX 1  (40  )  ,  SI  ( 40  )  •  DSDX 1  (  401,  CDC  Y  l  (  40 )  ,COCL 
11  (40), M (40)  ,REAL1(  11.40),  IMAGK  11.40  ),REPR1(  11,40  ),IMPR1( ll,  40) 

C 

COMMON  COMAIN, COMFOR 

COMMON  NX.X1.R3? .DRDX l ,S1 , DSDXl.CDCYl.CDCLl.M, REAL l, IMAGl.REPRl, 
IIMPR1 

C 

REAL  IMAG1.IMPR1 
C 

READ  15,5)  MAXZET.NX 
5  FORMAT ( 2413 ) 

00  7  1*1, NX 
DO  7  J»l,ll 
REALl ( J, 1 1*0. 

IMAGK  J,I  )*0. 

REPRK  J,I  )*0. 

7  I  MPR1 ( J , I ) *0. 

READ  (5.30)  (Xl(n,I«l,NX) 

READ  (5,30)  (RB1(I),I*1,NX) 

READ  (5,30)  (DR0X1  ( l  )  »  1*1  /,  NX  ) 

READ  (5,30)  (SKI), 1*1, NX) 

READ  (5,30)  (DSDX1 (I) , 1*1, NX) 

READ  (5,30)  ( CDCY1 (I), 1*1, NX) 

READ  (5,30)  (CDCL1 (I),I«l,NX) 

30  FORMAT ( 6E 12 .5 ) 

IF  (MAXZET-1)  45,10,45 
10  DO  15  1*1, NX 
15  H ( I ) *1 

GO  10  .^00 
45  DO  110  1*1, NX 

READ  (5,5)  NZETA.ISYM 
IF  (NZETA)  55,55,60 
55  Ni-MAXZET 
M ( I ) »Nl 
GO  TO  65 
60  Nl-NZETA 
M ( I )*Nl 

65  IF  (Nl-i )  300,110,70 
70  Nl*Nl-l 

IF  ( I SYM )  300,75,95 
75  READ  (5,30)  ( REALl  (  J,  M  ,  J-l.M  ) 

REAO  (5,30)  (REPRK J,I),J-1,N1) 

00  90  J*1 ,N1 ,2 
IMAGK  J,I  )*REALl(J,I) 

IMPRK  J,n*REPRl(J,  I) 

REALl ( J, I )*0. 
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90  REPRK  J, 15*0.0 
GO  TO  110 

95  REAO  (5,30)  (REAL1 ( J, I ) ,IMAGl (J, I ), J*1,N1) 
RflO  (5,30)  (REPRl ( J, ( ) ,IMPRl ( J, I ),J*l,Nl) 
110  CONTINUE 
300  RETURN 
END 


SUBROUT I NE  Vi  SC ( SA , Q1 , R1 , CNSV IS, CHSV I S, CYSV IS,  CES V I S, CL  S V I S ) 

C 

DIMENSION  DUN1 (3 ),0UM2 132 > , DUH3(59),X1 ( A0)»DUN4{ 160) « CDCYlti 40), 
1CDCLM40) 

C 

COMMON  OX1,DUM1,LREF,SREF,CG,DUM2,PHI,OUM3,NX,XI,OUM*«COCY1,COCL1 
C 

REAL  LREF 
C 

SP*SIN( PHI ) 

CP*COS( PHI ) 

CLSVI S*0« 

CNSVI S*0. 

CMSVIS»0. 

CYSV1 S»0, 

CESVI S*0. 

ARM»(Xl(i)-CG)/LREF 
V»-$A*SP*2.*R1PARM 
W»SA*CP*2«*Q1*ARM 
CYV0-;0CY1( I)*V*ABS(Vi 
CNVO»COCLl(l)*W*ABS(M) 

CEVO«-ARM*CYVO 

CMVO*-ARM*CNVO 

X«Xl(l) 

XO«X 

10  X*AMIN1(X+DX1,X1(NX) ) 

COC Y*AI NTRP (XI ,COCYI ,NX,X ,4 ) 

CDCL*AINTRP(Xi,C0CLl,NX,X,4) 

ARM«( X-CG) /LREF 
V=-SA*SP*2»  AR1*ARM 
M«SA*CP+2.*Q1*ARM 
CYVaCDCY*V*ABS( V) 

CNV=CDCl*W*ABS(W) 

CEV*-ARM*CYV 
CMV=*-ARM*CNV 
"X?  *(  X-XO) /2« 

CNSVI S*CNSVISA(CNV*CNV0)*DX2 
CYSVI S*CYSVI S+ (CYV*CYV0)*t)X2 
CMSVI S»CM3VI S* (CMV^CMVO )*0X2 
CESVI S1 CE  SVI S+ ( CEV+CEVO )*DX2 
XO*X 

CNVO«CNV 
CYVG«CYV 
CMVO-CNV 
CE VO«CE V 

IF  ( X-Xl ( NX ) )  10,70,20 
20  CYSVIS*CYSVIS/SREF 
CNSVI $«CNSVIS/SREF 
CESVI S*CESVI$/SREF 
CRSVIS-CMSVIS/SREF 
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RETURN 

ENO 


SUBROUTINE  LOCVAL 
C 

DIMENSION  FCN ( 40 ) « COMA I N ( 39 ) 

DIMENSION  At (121 »61 ( 12 ) « APRl ( 12 )*  BPR1 ( 12 ), C(2) 

DIMENSION  XI (40) »RBl 140) t OROXI 140 ),I 1 (40),DSDXl(4G)«CDCYl(40) ,CDCL 
11(40)  ,N(40)  VREAL1(  11 ,40),  1MAGH11,40I,REPRH  lit  40  ),INPRU  11,40) 

C 

COMMON  COMA I N« PHI 

COMMON  X,RB,R8PR,RB2,S.DSDX,CDCV,CDCL,NI,A1,B1,APR1,BPR1,C 
COMMON  NX,Xl,RBl.DROXl,Sl,DSOXl,CDCYl,CDCLl,N,REALl,IMAGi,REPRi, 
1IMPRI 
C 

REAL  I  MAGI • I MPR1 ,1 MAG, IMPR 

C 

R8*AIN7RHXl,Rei,NX,X,4) 

RB2=R8**2 

RBPR*AINTRP(X1,DR0XI,NX,X,4) 

S*AINTRP(Xl «S1«NX,X,4) 

0S0X*AINTRP(X1 ,DS0X1,NX,X,4) 

DO  10  I L*1 1  NX 
IF  (X-Xl  ( ID  )  20,15,10 
10  CONTINUE 
15  Nl-M(IL) 

GO  TO  25 
20  Nk-*M(  IL-1 ) 

25  A 1  ( 1 )  *RB 

BHD-O. 

APR1(1)*RBPR 
BPR1( 1 ) *0. 

C(l)*0. 

C(2)*0. 

Al I 2)«0. 

Bl(2)*0. 

APR1(2)*C. 

BPRl(2)*0. 

Al(3)*0. 

Bll >)*0. 

IF  (Nl-1)  100,100,30 
30  00  55  J«2,Nl 

Jl-J-1 
AJ-Jl 

PHI J-AJ4PHI 
DO  35  K»1,NX 
35  FCN(K)«REAL1( Jl,K) 

REAL«ADh'RP(X1,FCN,NX,X,4) 

00  40  K=i,NX 
40  FCN(K)>IMaG1< J1,K) 

IMAG»AINTRP<Xl,FCN,NX,X,4) 

DO  45  Ml, NX 
45  FCH!K)*REPRU  J1,X) 

REPft-AINTRPiXl,FCN,NX,X,4) 

DO  50  Ml, NX 
50  FCNCKI-IHPRU  J1,M 

IMPR«A!NTRP(Xl,FCN,NX,X,4> 

SN-SIN ( PHI J ) 
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CS*CGS(PHIJ) 

All JI*REAL*CS*INAG*SN 
Bl ( JI*IPAG*CS-R£AL*SN 
APRH  J)*REPR*C$MMPR*SN 
55  BPRHJI*INPR*CS-REPR*SN 
C(i>*RB2*APAll21 
C(2»*RB2*BPR1C2> 

IF  (Nl-21  100*100*60 
60  N2*N1-1 

00  65  N*2,N2 
AN*N~2 
J*N*i 
A J* J-2 

CIIKID-IAJMAU  J»*APRl(N)*Blf  J»*BPRHNm 
1  AN* (Al(N)*APRl C  J  > ♦ B 1 (N )*8PR1 (4  1 )  )*RB 

65  C(2)«CI2I*(AJ*(A1( J)*BPKl  (N1-8H  J  >*APRl(N) >♦ 

1  AN*(Bl (N) *APRl ( Jl-Al (N1*6PR1 ( J 1 )  )*RB 

100  RETURN 
END 


s.  . 

\r 


5- 
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FUNCTION  AINTRP  (X,Y,N,Xl,M) 

C 

0 1  PENSION  X 1401 *Y( 60 1 
C 

1=0 

5  I>I«| 

IF  CM— I )  70*10*10 
10  IF  (X(II-X1»  5,20.15 

15  IF  (I~ll  100,70,25 

20  AINTAP»YU) 

GO  TO  100 
25  N2-P/2M 

IF  ( I -N2 I  30,30,35 
30  11*1 

1 2*N 

GO  10  50 

35  IF  (N-I-N2)  40,45,45 
40  I 2*N 

I l*I2-Mi 
GO  TO  50 
45  I 1*I-H2 
I 2*1!*H-1 
50  AINTRP*0.0 

00  65  1*11,12 
FCN*Y ( 1 1 
00  60  J*! 1,12 
IF  CJ-II  55,60,55 

55  FCN*FCN*(X1-X(J1)/ IXIII-XIJII 
60  CGNTINUE 
65  AINTRP*AINTRP*FCN 
GO  TO  100 

70  NRITE  (6,751  Y(1),Y(N),X1 

75  FORPAT  (53H  AINTRP  CUT  OF  RANGE  FOR  FUNCTION  KITH  END  VALUES  OF  , 
IE12.5.4H  ANO.E 12.5 ,5H  X1*,E12.5> 

100  RETURN 
ENO 
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SUBROUTINE  COEFF 
C 

DIMENSION  C0MAINI36)  ,C0MF0ft{58)<>Xl  (401 
C 

COMMON  OXlf DXtlSTART ,NEXIT ,CONAIN,X»COMFOR,NX» XI 
C 

NEX!T*0 
I  START*# 

DX«0. 

x*xim 

10  X*X*DX 

CAIL  LOCVAL 
CALL  FORCE 
0X*0X1 

IF  (NEXITI  500,12,500 
12  IF  IX+DX-Xl INXJ )  10,15,15 
15  NEXI Y*1 

OX*  XU  NXI-X 
GO  TO  10 
500  RETURN 
ENO 
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PROGRAM  NLMl MG ( I NPUT , OUTPUT , 1 APE5= INPUT, TAPE6=OUTPUT ) 

C 

OIMENSION  XII  (2)  ,XI0(3)  ;,ETA(20i  ;ETADW(80)«TN(  3), 

l.<(40),Y(40),CI(90),CF(80),W(20), 

2C4( 20,20) ,C6( 20,20 ) »CIRCLN(20 ) , DWASH( 20 ) *TRVQU( 20, 20) ,  £5(20,20), 

3C470(20,20) , C570I20, 20» ,TRV70 (20,20) 

4, ALPHEF(20) ,WT(20) ,SINAEF(20),GAM(20) 

5, C0EF (10,10) ,CH0RD(10) ,XL1 (20 ) ,XL2 (20 ),XPM0M(20) , CIRCL1 ( 20) 

6, CI RCL2 (20)  ,AL(  10)  ,WGHT(  10 ) ,SPAN(20) ,  Ai.PHi 20) 

C 

1  READ  (5,60)  ALPHA, BETA, OALPHA 
READ  (5,60)  ETAO,LTAB,TR,TNLE 
READ  (5,60)  P,Q,R 
READ  (5,60)  REFL,XCG,ZCG 
READ  (5,60)  CD, COX POS 
READ  (5,55)  NSTA,NDWSH 
READ  (5,55)  NALPHA.NIT 
READ  (5,55)  NSYM 
READ  (5,60)  ( ETA ( I ),I=1,NSTA) 

READ  (5,60)  (ETADW( I ) , 1=1, NDMSH) 

DO  5  1*1,3 

5  READ  (5,60)  XIO(I),TN(I) 

READ  (5,60)  ( ALPHEF( I ) , I =1 , NDWSH) 

READ  (5,60)  ( AL( I) ,1*1,10) 

READ  (5,60)  (WGHT(l) ,1=1,10) 

ALPHA=ALPHA*. 0174533 
BETA=BETA*«  0174533 
DALPHA=DALPHA*. 0174533 
DO  7  1=1,10 

7  AL(I)*AL(I)*.0174533 

P=P*2./REFL 
Q=Q*2./REFL 
R=R*2./REFL 
C8ETA=C0S(BETA) 

CALCULATE  COORDINATES  OF  DOWNWASH  CONTROL  POINTS 
NROM*0 

00  26  J=1 ,NOMSM 
ALPHEFI J)=ALPHEF(J)*. 0174533 
XI -XI0(3) 

YI=ETAO 
YF*ETAB 

IF  (ETADNI J)-YI )  25,10,10 
10  IF  (ETADWl J)-YF)  15,15,25 
15  NR0U=NR0W+1 

Y ( NROW) =ETADH ( J ) 

X(NROW)=XIMY(NROW)-YI ) *TN ( 3 ) 

GO  TO  26 

25  WRITE  (6,65)  ET AO. ET ADW ( J ) , ET AB 
STOP 

26  CONTINUE 
N=N  STA 
NCOL=N- 1 

C  NOW  CALCULATE  LAGRANGIAN  COEFFICIENTS 
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CALL  LGRANG(ETA,CO£F,N» 

CALCULATE  LOCAL  CHORDS 

00  17  ! *1 «NC0L 
IfKNCOL+I 
E  fACIN)*ETAII ! 

SPAN! I 1 -ETA (I) / I ETAB-ETAO I 
SPAN! INI*-SPANI1 ) 

CHORD! 1 1 *l«+tTR-l« )*ETAl 1 )/ 1ETAB-ET  A01 
17  CHORO IIN1 *CHORD III 
NR0U2*NR0W+l 
NR0Wl*2*NR0W 
J1*0 

00  110  J*NR0W2 » NROW 1 
JWJl+i 

ALPHEFI J)*ALPHEF(Jll 
X(J)*XU1) 

110  YIJ!*-Y!J1> 

X!im*a!Om*ETAB*TNtl> 

XI 1 12I*XI0(21+ETAB*TN121 
DO  172  M*l,NALPHA 
ALPH0*ALPHA*57.2958 
BETD«BETA*57.2958 
WRITE  16,3001  ALPHD, BETO 
S ALPHA-SIN! ALPHA) 

CALPHA-COS! ALPHA! 

DO  170  L»1»NI Y 

NCOL-NSYA-1 

NRON-NOWSH 

DETERMINE  DOWNWASH  CONTRIBUTION  FROM  LEADING  LIFTING  LINE 

CALL°LLINE(XU>  ,Y(  J)  tO.OtXIOI  11, Xlill!,ETAO,ETAB,TN(l)» 

lALPHEFt  J),B£TA,COEFfCI,Ni  ,,lA  TMH, 

CALL  TRVORT !X(  J) »Yt J) ,0.0,XI0I1),XII! 1)*ETA0*ETAB,TNI 11, 
lALPHEF! J1,3£TA,C0EF,CF,N> 

00  29  I«l,N 

29  TRVQU( I , J) *CF ( I ) 

00  30  I »1 »N 

30  C4!I,Ji»CHIl*CF!I) 

♦0  CONTINUE 

TEST  HJR  SYMMETRICAL  LOADING! NSYM-O) 

IF! NSYM-1 145,56 ,45 
45  DO  50  J*1 »NROW 
J2*  J+NROW 
DO  70  I-l.NCOL 

TRVQU!  I » J! “TRVQU U  »,l!*TKVQUl  I  *  J21 
70  C5t I  * J! *C4( I , J) *C4 ( 1 , J2) 

50  CONTINUE 
GO  TO  59 

56  DO  73  I *NR0W2  »NROWl 
IN«I-NCOL 
00  73  J*1 «NROW 
JN“ J*NRQW 

TRVQU!  I  ,  J)  “TRVQU !  I  N»  JN'( 

TRVQU! I ,JN) “TRVQU! IN,J! 
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C5<!,j;n  ♦«».«.  jn» 

*3  C5‘I,  JM5*C*t?N,.«: 

co  vj  r-'.wvt 

00  72  i=l,NRt)Hl 

'*>«  i  .»■>  n>  ci.ji 

DETERMI Nt  -  •  <:*'  :or-'*.-‘f  jU’IOtt  ,.V/:-i  •  .0  '  " '-  L  v» 

59  00  41  J=1,NR0W1 

CALL  LL!NE(X(J),Y(J),0«0,XI0t<.),Xia.»<.  .  ^--,.7*;?  ,  ^ 

1ALPHEFI J) «BETAfC0EFfCI #N) 

CALL  TRVORT I X I  J )  ,Y  I  J )  ,0.0  .X 10  (2  ) ,  X 1 1<  2 ) ,  ETA0,ETAtl,  INI...  , 
IALPHEFI  J) ,8ETA,C0EF,CF,N) 

00  32  I  =*1  *N 
32  TRV70I I  , J)=CF ( 1 ) 

00  31  1*1 *N 

31  C470(I,J>*Cim+CFin 
41  CONTINUE 

TEST  FOR  SYMMETRICAL  LOADING ( NSYM=0 ) 

I F ( NSYM-1 146,81,46 
46  00  51  J=i «NR0W 

J2= J+NROW 
DO  71  I *1 • NCOL 

TRV70( I » J) =TRV70 (I,J)+TRV70(I«J2) 

71  C570(I,J)=C470(I,J)4C470(I,J2) 

51  CONTINUE 
GO  TO  85 

ei  00  82  I=NR0W2,NR0Wl 
IN=I-NC0L 
DO  82  J=l,NR0W 
JN=  J+NROW 

TRV70(  I  » J)*TRV70  UN,  JN 1 
TRV70I I « JN) =TRV70( IN, J) 

C570II,J)=C470(IN, JNI 

82  C570II.  JKlI=C470(IN,  J) 

DO  83  1=1, NCOL 

OQ  83  J=1 , NR0W1 

83  C570(I.J>=C470(I,J) 

REDEFINE  NUMBER  OF  ROWS  AND  COl’JMNS  OF  CIRCULATION  MATRIX 
FOR  ASYMMETRICAL  CASE 

NCOL=NROMl 

NR0W=NR0W1 

DETERMINE  WEIGHTING  OF  CIRCULATION  BETWEEN  THE  LEAOI'IG  ANO 
AFT  LIFTING  LINES 

85  CALL  WGT ( ALPHEF , WT,AL,WGHT ,NROW ) 

DO  52  1=1, NCOL 
DO  52  J=1 , NROW 

TRVOUI I , J) =TRVOU ll,JI*WT(I)*TRV70(I,J)*C l.-WT ( f )  ) 

52  C  51  I«J)=C5(!,J;*wT(I )*C570(I,J)*(l.-WT(I)' 

DO  80  1=1, NCOL 

DO  80  J=1,NC0L 

C6( l , J) =0. 

00  80  K=I , NROW 
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80  C6I I , J) *C6( I » J)*C5 I I»K}*C5(J» K ) 

0G  120  1-1, NCOL 
00  120  J*l ,NR0M 
120  C4{ I, J)*C5(I,J> 

DETERMINE  INVERSE  OF  CIRCULATION  MATRIX 

CALL  HAT I NV ( C6 » NCOL , C5 ) 

DO  100  I*1»NC0L 
00  100  J*1»NR0M 
C6« I,JJ*0. 

DO  100  K*1»NCUL 

100  C6(  I,  J)*C6<  I,  J)+C5U  ,SO*C4{K,  J» 

DO  150  1*1, NCOL 
CIRClN<n=0, 

DO  150  J=i 1 NROH 

TEST  FOR  SYMMETRICAL  L0.40ING(NSYH=0 ) 

IF ( NSYM-1 1125,130,125 
125  M( J)*SALPHA*CBETA*a*IX(J)-XCG) 

GO  TO  145 

IjO  H( J)*SALPHA*C8ETA+P*Y( JI 
145  CONTINUE 

150  CIRCLN(I>=CIRCLN(I »-C6 ( I , J)*W ( J> 

DO  160  J*1 , NROM 
DMA SH( J)=0. 

DO  160  K*1 , NCOI. 

160  DMASH ( J I =DMASH ( J  )-C4 (K» J I *CIRCLN ( K ) 

DO  161  J=1 » NROW 

DMA  SH ( J) =0. 

DO  161  K*1 t NCOL 

161  DMASH(J)*DWASHI J)-TRVGU»K,J)*CIRCLN<K) 

DO  162  J*1 , NROM 

ALFHEFI J)*ATAN( (SALPHA*CBETA+Q4IXI J)-XCG)*P*Y(J)-DWASH( J) )/ 
1 (CALPHA*CBETA-ZCG*Q-R*Y IJ))) 

IF  I ALPHEH J) -ALPHA  1185,185,180 
180  ALPHEFl J»=ALPHA 
135  CONTINUE 

162  SINAtFI J)=SIN(ALPHEF( J) ) 

CALCULATE  SPANMISE  LOADING 
DO  171  1*1, NCOL 

171  GAM (IJ*CIRCLN(I)42«*(CBETA+R*Y(I))*CD*SINAEF( I l^SIMAtFU ) 
l*CHOROm 

CALCULATE  NORMAL  FC1CE 

CALL  FMINTIGAM,C0EF»ETAB,N»XINT,NSYM,01 
CN*<l.*TR)METAB-ETA0)/2. 

CN=XINT/CN 

CALCULATE  PITCHING  MOMENT 

DO  210  1*1, NCOL 
CIRCLIU  )=CIRCLN(I)*MT(I ) 

CIRCL2II 1 =C IRCLN ( I )*( l.-MT ( I ) 1 
XU  m*XI0m*ETA(I»*TN(i) 
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XL2  (I )*XI0(2)+ETA!I)*TN(2) 

210  XPMOHm*(CIRCLHI)*XLl(I  J+CIRCL2 CI)*XL2 (I)  i*2.* ( CBETA*R*Y(  1)1 

1  ♦C0*S1NAEF  ( I )  *SI  NA6F  ( I )  *CH0R0C  I  )*  (ETA (I  )*TNLE*CDXP0S*CH0RD  ( I) ) 
CALL  FMINT(XPMOM,e.OEF,ETAB,N,XINT,NSYM,0) 

CM*  ( l.  +  TR)  *(ETAB-*ETA0)  *REFL/2  • 

CM*  XINT /CM 

TEST  FOR  SYMMETRICAL  LOAD iNG( NSYM=0 ) 

IFlNSYM-1 121 1*212*211 
CALCULATE  ROLLING  MOMENT 

212  CALL  FMINT(GAM,COEF,ETAB,N,XINT,NSYM, 1) 
CMX=(l.*TR}*<ETAB-ETA0f*REFt/2. 

CMX=XINT/CHX 

GO  TO  213 

211  CMX=0.O 

213  CONTINUE 

00  214  1=1*  NCOL 

214  ALPH( ! t  =ALPHEF ( I )*57.2958 
WRITE  (6,174)  P,0,R 
WRITE  (0,186) 

WRITE  (6,175)  (SPAN( I ) • 1*1* NCOL ) 

WRITE  ( 6 i 176)  (GAM(I) ,1=1, NCOL) 

WRITE  (6,177)  (ALPH(I), 1=1, NCOL) 

170  WRITE  (6,220)  CN.CM.CMX 

NOW  ADJUST  ALPHEFFECTIVE  FOR  NEXT  ITERATION  ON  ALPHA 

!F( ALPHA-0. 01 ) 192, 190, 190 

190  DO  191  1=1, NCOL 

191  ALPHEF ( I ) =ALPHEF ( I ) * ( ALPHA+DALPHA ) /ALPHA 

192  CONTINUE 

172  ALPHA* A LPHA+G ALPHA 
55  F0RMAT(12I6) 

60  FORMAT ( 8F9. 5 ) 

65  FORMAT (47H000WNWASH  CONTROL  POINT  OUTSIDE  OF  END  PQIM TS. , 3F 1 3. 5 ) 

174  FORMAT  ( IH05X ,2HP  =  F9 . 5 , 2H0=F9 .5, 2HR=F9.5  ) 

175  FORMAT  ( 1H015HSPAN  10F10 .4/ ( 16X 10F1 0 . 4 ) 5 

176  FORMAT  ( IH015HL0ADING  10F10.4/ ( 16X10F10.4 )  ) 

177  FORMAT  ( 1H01 5HEFFECT I VE  ALPHA I0F10.4/ ( 16X10F10.4 ) ) 

186  FORMAT  ( IH020X.36HSPANWISE  LOADING  AND  EFFECT  1  YE  ALPHA) 

300  FORMAT  ( 1HU0X ,  18HRE SULTS  FOR  ALFA*  F9.4.12H,  AND  BETA*  F9.4,10H 
l  DEGREES) 

220  FORMAT  ( 1H031HN0RMAL  FORCE  COEFFICIENT,  CN  =  F9.5/1H0 

140H MOMENT  COEFFICIENT  ABOUT  7 -AXIS  ,  CMY  =  F9.5/ 1H040HMOMENT  COEFF 
2IFIENT  ABOUT  X-AXIS  ,  CMX  =  F9.5) 

SIOP 

END 


SUBROUTINE  WGT ( ALPHEF ,WT , AL, W GHT , N ? 

C 

DIMENSION  ALPHEF (20) , WT ( 2 0 ) , AL ( 10 ) , WGHT ( 10 ) 
C 

00  100  I  =  l ,  N 

IF  ( ALPHEF ( I ) -AL ( 2 ) )  5,10,10 
10  IF  ( ALPHEF ( I ) —  A L (3  > ) 15,20,20 
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20 

30 

40 

50 

60 

70 

5 

15 

25 

35 

45 

55 

65 

75 

80 

100 


IF  (AL?HEF(II-AL(4))25,30,30 
IF  (ALPHEF ( I1-ALI5) 135,40,40 
IF  (ALPHEF(I)-AL(6))45,50,50 
IF  (ALPHEF(I)-AL(7) ) 55,60,60 
IF  (ALPHEFI I J-ALC8) ) 65, 70 *70 
IF  (ALPHEFI I J-ALI9 )) 75,80 ,80 

HT( I ) =WGHT ( 1 )- ( ALPHEFI I )-AL 1 1 ) )* (HGHT 1 1 l-HGHT 1 2 ) 
GO  TO  100 

HTl I )=HGHT(2)~ ( ALPHEFI I I-ALI2 I )*(HGHT 1 2 )-HGHT I  3) 
GO  TO  100 

WTI I )=HGHT ( 3) -I ALPHEFI I )-AL (3 ) )* (HGHT (3 l-HGHT 1 4) 
GO  TO  100 

«T( I)=HGHT(4)-(ALPHEF(I)-AL(4))*(MGHT(4)-HGHT(5) 


)/(AL(2)-AL( 1)) 
) /( AL ( 3)-AL I  2) ) 
)/(AL(4)-AL(  3)) 
)  /  ( AL 1 5 1  —  AL I  4) ) 


GO  TO  100 

I )=WGHT(5)-( ALPHEFI I )-AL(5 ) )* (WGHTI5 l-HGHT 1 6) ) /(AL (61-ALI 5) ) 
GO  TO  100 

WT( I ) =HGHT (6) -( ALPHEF 1 1 I-ALI6 I )* (HGHT ( 6)-HGHT 1 7) ) /CAL  1 71-ALI 6)1 


HTI I?*1gSt 1 7 ) - 1 ALPHEF 1 1 ) -AL ( 7 ) ) * (HGHT 1 7 )-WGHT ( 8 ) ) / 1 AL 1 8 ) -AL I  7) ) 
WTl  n*WGHT  1 8)  -  (ALPHEFI  I  )-AL(8  )  )* (HGHT  1 8  )-WGHT  1 9 ) ) /( AL  ( 9)-AL(  8) ) 


GO  TO  U'C 
HT( I )=HGH7( 


9) -( ALPHEF ( I )-AL (9))* (HGHT (9 l-HGHT ( 10) l/IALl 


10)-AL( 9) ) 


CONTINUE 

RETURN 

END 


C 


SUBROUTINE  GAUSS(FUNCTN»A,B,C,D,E,N,X1,X2,ANTEG) 
DIMENSION  X ( 16) ,H( 16 ) 


C 

IF(K-1968)i,2,l 
1  K=1 968 

X(l)=0. 005299533 
X(?)=0.027712488 
X(3)=0. 067184399 
X(4)=0. 122297796 
X( 5  )=0. 191061878 
X(6)=0. 270991611 
X(7)  =0.3591 98225 
XI8)=0. 452493745 
X( 9 1=0.547506255 
X»10)=0. 640801775 
X !  1 1 ) =0.7290G8389 
X(12)=0. 808938122 
X( 1 3) =0.877702204 
X( 14) =0*932 815601 
X(15)=0. 972287512 
X(16)=0. 994700468 
W(  1  )=0.  013576230 
W(2)*0. 031126762 
W(3>=0. 047579256 
W(  4  I  -*0.  062314486 
H( 5 ) =0. 074797994 
W(6)=0. 084578260 
H(7>=0. 091301708 
W(  8)=0. 094725305 
H ( 9 ) ^O. 094725305 
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U(10)=0. 091301708 
Ml  11=0.084578260 
U( l 2) *0.074797994 
Ml  3)  =0.062  3 14486 
M 141=0.047579256 
W(15)=0. 031126762 
M16)=0. 013576230 

2  SUM=0* 

00  3  1=1,16 

CALL  FUNCTNf ( X2-X1 ) *X (I ) +X1 , A, B, C»  0, E, N»  F ) 

3  SUM=SUM+MI  )*F 
ANTEG=SUM«>tX2-Xl) 

500  FOR HAT ( 8F9.9) 

RETURN 

END 


SUbROUTINE  F0RH1 (X,A,B«C,D,E,N,F) 

C 

F=(  D*X**N+E*X**t  N-l ) J/SQRT (A*X**2+B*X+C ) 

RETURN 

END 


SUBROUTINE  F0RM2 IX , A, B,C, 0, E, N, F ) 

C 

F=X**N/( (A*X*X+B*X+C)*SQRT (X*X+D*X+E) ) 

RETURN 

END 


SUBROUTINE  F0RM3  <X, A,B,C,DUMY 1,DUMY2,N, F  ) 

F=X**N/I A*X*X+B*X+C) 

RETURN 

END 


SUBROUTINE  LGRANGIX, C,N) 

DIMENSION  X(10),C(10,10),X1(9),C2(10) 

DO  35  1*1, N 
DO  5  J=1,N 
5  C2IJ)=1. 

Cl*l. 

M1=0 

DO  15  J=1 ,N 
IF  (I-J)  10,15,10 
10  M1=M1+1 

Cl  =  Ci/IXU)-XJ  J)  5 
XI ( Ml ) =X( J) 

15  CONTINUE 

c  t  ( ,n=ci 

Ni  =  N 
IU1 

20  Nl=Nl-l 

IF  mi)  *5,35,25 
25  11=11+1 
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30 


DO  30  J*i,Nl 
C2( J)*0« 

DO  30  K=J,N1 

C2  I  J)  =C2  ( .1>  -C2  ( K-H  )  *X  1  ( K ) 
CU,I1)=C2U)*C1 
GO  TO  20 
35  CONTINUE 
RETURN 
END 


C 

C 

c 


5 


10 


SUBROUTINE  LLINE IX ,Y,Z,XI l, X 1 2,ET AI, ETA2.TN, ALPHEF.BETA, COEF ,CI , N) 

DIMENSION  C0EF(L0,L0),C!(80> 

EXTERNAL  FORMI 

Al*AB5IETA2> 

A1=A1*TN/ETA2 

TN2=TN*TN 

C I* ( X-XI I >*AI 

C2* ( Y-ETAI I *A1-X*X I l 

C3*(X-XI1)*AI-(ETA2-ETA1) *TN2-ET  A2+Y 

C4- I Y-ETA2 ) ♦AI-X+X 12 

A=i.*TN2 

B=-2.*(Y+ETA1*TN2+C1) 

C  =  < X-XI1)**2+Y**2+Z**2+TN2*ET A1**2+2.*ET A1*C1 
DEN=12. 56637* (A*Z**2+C2**2) 

UM1 =C2*A/DEN 

UM0*“C2*( Y+ETAi*TN2+Ci )/DEN 
C1=C1*Y-ETA1 

SQR1=SQRT ( ( X-XI 1 )**2+ ( Y-ET  Al ) **2+Z**2 ) 

SQR2*SQRT ( ( X-XI2 )**2+ ( Y-ET  A2 ) **2  +  Z**2 ) 

Vl=-Cl*C2/(DEN*SQRi ) 

V2=-C3*C4/(DEN*SQR2) 

N2=N-i 
DO  10  I*1,N 
CIU)=0. 

DO  5  J=1»N2 
,‘1  =  N-J 
A  Jl - J1 

CALL  GAUSSI FORMI ,A,B,C,UM1 ,UMO, Jl, ETAi, ETA2.FCN ) 

CIl  i;=CIU)-AJi*FCN*COEF(  I,J) 

ETA1N-1. 

ETA2N=1. 

Ni=N+l 
DO  10  J=l »N 
Nl=Nl-l 

Cim*CI  m+COEFII  ,N1)*(V2*ETA2N-V1*ETA1N5 

ETA 1N=E  TA1N*ETA1 

ETA2N=ETA2N*ETA2 

RETURN 

END 


SUBROUTINE  TRVORT I  X , Y , Z ,X 1 1 , X  1 2 , ET Al, ET A2, TN, ALPHEF, BET A ,COEF 
1  ,CF  f N) 

C 

DIMENSION  COEF ( 10, 10 ) ,CF ( 80 ) , Al l ( 3 » 
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c 


E  (TEFiNAL  F0RN2.F0RH3 


TN2=TN*TN 

AA=/iBS(ETA2) 

AA=AA*TN/ETA2 
BEFCOS-COSI BETA) 

BEFSIN=SIN(6ETA) 

ALFC0S*C0S(ALPHEF1 
ALFSIN*SIN( ALPHEF) 

C1=BEFSIN/1BEFCOS*ALFCOS) 

C2*ALFSI  'V/ALFCOS 
DO  22  K=l »N 
22  CHK)-0. 

ETAA=ETA1 
-:tab=ETA2 
Al» l»*C2*A2 
A2=Cl**2*C2**2 
A3=2.’*C1 

A4=-2«*Y*A1-A3*( X+C2*Z  > 

A5=-2.*iCl*Y-C2*Z*A2*X’ 

A6=Ai*Y**2+A2*X**2*< l.+Cl**2)*Z**2+A3*Y*(X*C2*Z)-2.*X*Z*C2 
A--A1*A2*TN2+A  j*AA 
C3~XI 1— ETA1 ♦A A 

B=A4+2.*C3*AA**2+A3*C3*A5*A\ 
l A2*C3+A5 ) *C3*A6 
0=2.*< (Cl  -X)*AA-Y)/(1.+TN2) 

E  =  (  X**2> Y’>*2-»Z**2-  (2»*X-C3 >*C3)/  ( 1  .+TN2  ) 

F-AA-CI 

G-C  3-X+Cl*Y-C2*Z 

SQR=$QRT ( 1. ♦Cl**2+C2#*2 )/ 12 .5G637 

DEN=SQRTU.*TN2)*12.5663t*SQR 

H=- H.+C1^AAS*SQR 

AI=(Y+Cl*(X-C3l )*SQR 

All ( 1 ) -A  I 

Ail<2»=H 

DO  10  i  =  UN 

11  =  N— I 

ETAA=ETA1 

!F(Y)l«2t3 

2  ETAA=.005 
GO  TO  1 

3  ETAB-Y-.005 

CALL  GAUSS(Fi?RM3,AfB,C,lKE»Il,ETAA,ETAB,  ANTEG) 

ETAA-Y+.005 
GO  TO  13 
1  ANTEG=0. 

13  E  TAl)=ETA2 

CALL  &AUSS(F0RM3,AtB,CtD, E, 1 1 , ET AA, ET AB, BTEG) 
ANTEG=ANTEG*CTEG 
I NO=MAXO ( 1 1  3-1 ) 

INI  -MIN0(2,N+1-I i 
DO  10  J=IN0,1N1 
J1M  +  J-2 
A J=N- 31 
DO  iO  K- l  . N 

10  CF  (  K )  =CF  (  K '  A  J*  A 11  1  J  i  *  ANT  FG*COEr  I  ,  J 1  > 

All (1)=A!*G70FN 
A 1 1 ! 2 ) - t  H*G  +  F  *A I )/DEN 
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UHL  o  o  o  o  u  o 


All !  3)*H*F/0EN 
Nl*N«-i 

00  20  !«l,Nl 
Il=Nl-I 
ETAA*ETAl 
IF!  Y)4t 5*6 

5  ETAA*.00'i 
GO  TO  4 

6  ETAB*Y-.005 

CALL  GAUSS!FGRM2tA,B,C,D,E,Il.ETAA*ETAB,ANTEG> 
ETAA»Y+«005 
GO  10  16 
4  ANTEG-0. 

16  ETAB»ETA2 

CALL  GAUSS!F0RM2fA,8,C,0,E*Il,ETAA,ETAB,BTEG> 
ANTEG=ANTC-G+BTEG 
I NO-MAXO ( 1 *4-1 ) 

INI =MINO! 3»N1*1— I ) 

DO  20  J=IN0«IN1 
Jl*I*J-3 
A  J=N-J1 
DO  20  K-l.N 

20  CF!K)*CF!i<)+AJ*AlH  J)*ANTEG*C0EFIK,J1) 
tVTURN 
END 


SUBROUTINE  FHINT<FX,C0EFtETA8,N,XINT,NSYM, IMX) 

C 

DIMENSION  FX(20) ,CUEF( 10 , 10 1 , C ( 20 » 

C 

NC0L*N-1 
DO  10  I*l,NCCL 

cm*o. 

TEST  WHETHER  NORMAL  FORCE (0 ), PITCHING! 0 )  OR  ROILING!!)  MOMENT 

IFl IMX) 15*5*15 
5  X=l. 

GO  TO  25 
IS  X=E  TAB 
25  DO  10  J*1.N 

IESY  WHETHER  NORMAL  FORCE (0 ), PI TCHINGl 0  )  OR  ROLL ING( 1 )  MOMENT 

IF! IMX)80,75,80 
75  XN=  J 

GO  TO  85 
80  XN*J+l 
85  *=N*l-J 

2.*X*ETAB 

10  C ( l  )ZC !  I  ) *COEF ( I *K )*X/XN 
X’NT*0. 

TEST  FOR  SYMMETRICAL  LOADING! NSYM*0 ) 

IF! NSYM-1 ) 40 *50 *40 
40  DO  20  I X1 »NCOL 
20  XINfsXINT*C!I )  *FX  (  I  > 
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o  n  o 


60  TO  60 

50  CONTINUE 

TEST  WHETHER  NORMAL  FORCE  101, PITCHING! 0)  OR  ROLL  INCH)  MOMENT 

IF! IMX)51*52»51 

51  00  96  I *1»NC0L 
IN*I«NCOL 

94  XfNT*XINT-IFX!I)-FXtIN))*Cm/2.0 
60  TO  60 

52  00  95  I =1 »NCOL 
INfI*NCOL 

95  x;NT*XINT*!FX!I)+FX!IN))*CIi>/2.0 
60  CON IINUE 
RETURN 
ENO 


SUBROUTINE  WATINV! A.N,B) 

C 

DIMENSION  A( 20,20) , B (20,201 ,C C 20, 20 1 

I* 

100  FORMAT! 19H0MATRIX  IS  SINGULAR) 

90  1  J=1,N 
00  l  1 *1  ,N 

1  BII,J)*0.0 
DO  2  1*1, N 
Sll  ,11*1.0 
DO  2  J=1 ,N 

2  C(J,I)=A(J,I) 

DO  6  1*1, N 
IF(C(I,I))24,50,24 

50  DO  21  I Z*I ,N 

IF!C(IZ,I))2?,2\,22 

21  CONTINUE 

WRI TE(6,100) 

GO  TO  7 

22  DO  21  R=).,N 

C 1 1  ,M)*CII, *)♦:.!  TZrM) 

23  B(I«M)*BiI,M)*E(IZ»H) 

24  TC=C( 1,1) 

DO  3  J=1,N 

C(I ,J)*C!I, JI/TC 

3  B(i  ,J)*B(I,J)/TC 
00  6  K*I,N 

IF! K- 1)4, 6, 4 

4  T*C!K.I) 

00  5  L  =  I  ,N 

C(K,L)=C!K,L)-T*CU  ,U 

5  B(K,L)=B!K,L)-T*B(I,L) 

6  CONTINUE 
RETURN 

7  STOP 
END 
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